MooseX-Declare-0.38/000755 000767 000024 00000000000 12253122762 014471 5ustar00etherstaff000000 000000 MooseX-Declare-0.38/Build.PL000644 000767 000024 00000000066 12253122762 015767 0ustar00etherstaff000000 000000 use 5.006;
use Module::Build::Tiny 0.030;
Build_PL();
MooseX-Declare-0.38/Changes000644 000767 000024 00000020227 12253122762 015767 0ustar00etherstaff000000 000000 Revision history for MooseX-Declare
0.38 2013-12-14 18:39:30Z
- update configure_requires checking in Makefile.PL, add CONTRIBUTING file
0.37 2013-09-26 04:08:21Z
- repository migrated to the github moose organization
- re-release with fixed compile test
0.36 2013-09-10 02:33:28Z
- Depend on 'aliased'.
- The test suite now uses Test::Fatal instead of Test::Exception. (Karen
Etheridge)
- removed use of deprecated Class::MOP::load_class, calling enum with a list
- converted use of Class::MOP::class_of to Moose::Util::find_meta
- new WARNING section added to pod, regarding future utility of this module
0.35 2011-08-23 11:13:10Z
- Adapt to changes in MooseX::Role::Parameterized 0.27.
0.34 2010-08-31 23:10:28Z
- Depend on MooseX::MooseX::Signatures 0.36 to avoid deprecation warnings on
new versions of Moose (Jeremy Carman).
0.33 2010-02-04 01:50:14Z
- Depend on MooseX::Method::Signatures 0.30 to fix various incompatibilities.
0.32 2009-11-02 02:00:42Z
- Add link to Geany syntax notes to documentation (Michele Beltrame).
- Convert from MooseX::MethodAttributes to Native::Trait (Justin Hunter).
- Update dependency on MooseX::Types (Chris Prather).
0.31 2009-09-17 16:10:22Z
- Bump dependencies for no more warnings on new Moose versions.
0.30 2009-09-05 00:48:05Z
- Make the attr inheriting TODO test work.
- Make default values for role parameters work (nperez).
- Add tests for the above (nperez).
0.29 2009-08-31 17:11:25Z
- Add failing test for applying modifiers to a method directly composed from
a role (nperez).
- Fix the failing test by depending on MXMS 0.24.
0.28 2009-08-27 20:44:34Z
- Bump prereqs on MooseX::Method::Signatures, Moose, and namespace::clean in
order to avoid test failure.
0.27 2009-08-18 06:54:22Z
- Depend on MooseX::Method::Signatures 0.21 to make sure type aliasing works
and there are no warnings due to the recent MooseX::LazyRequire changes.
0.26 2009-08-16 12:48:12Z
- Declare dependency on MooseX::AttributeHelpers.
0.25 2009-08-16 03:31:59Z
- Don't persist the inner keywords over more than one invocation of the declarator.
- Pass along the current context to import_symbols_from and imported_moose_symbols.
- Implement parameterizable roles.
0.24 2009-08-15 21:48:09Z
- Add repository and bugtracker to Makefile.PL (Ash Berlin).
- Tests and doc fixes on applying multiple roles at once (Chas. J. Owens IV).
- Produce better diagnostic output on test failures (Dave Rolsky).
- Make MooseX::Method::Signatures handle the actual parsing for method-like
keywords (nperez).
- Clean now warns in autoclean namespaces (Robert 'phaylon' Sedlacek).
- 'method' keyword now only available by default in namespaces that consumed
MooseSetup (Robert 'phaylon' Sedlacek).
- Added 'namespace' keyword and allow namespaces, superclasses and roles to
be relative (Robert 'phaylon' Sedlacek).
- Add tests for using anonymous methods as attribute defaults (Devin Austin).
- Stop depending on B::Hooks::EndOfScope. We don't use it direectly anymore.
- Add a real 'with' keyword.
- 'with' in a class- or role-body doesn't defer role application until the
end of the class- or role-definition anymore. The 'with'-option for the
class and role keywords still does.
- Add a tests for role application and method modifier ordering.
- Make anon classes immutable as well (unless explicitly asked not to).
- Add a ctx method to add cleanup code that should be injected as early as
possible.
- Depend on recent versions of DD and MXMS to make keywords less reserved
(i.e. hash keys and barewords before fat commas).
- Make t/with_newlines.t less noisy.
- Add tests for methods with no signature not caring about their arguments,
other than $self.
0.23 2009-06-25 03:09:10Z
- Add test to make sure methods returned from meta are
MooseX::Method::Signatures::Meta::Method (nperez).
- Add the actual ::Signature methods to the meta class instead of letting it
wrap the coderef itself.
- Make inner scopes inherit the declaration provider instead of hardcoding
'MooseX::Declare' (Robert 'phaylon' Sedlacek).
- Fix test failure on new Moose versions, which inline a DESTROY method on
immutalisation.
0.22 2009-05-06 00:37:37Z
- Add TODO tests for creating nested anonymous classes and roles
(nperez).
- Always end injected code with a semicolon.
- Only do namespace nesting if the inner namespace starts with "::".
- Depend on D::D 0.005001 to get a skip_declarator that doesn't fail
when code is being compiled between calling the linstr callback and
skip_declarator. This appears to be necessary to work on 5.8.
0.21 2009-05-04 23:55:41Z
- Add tests for automatic cleaning with the clean/dirty traits
(Stevan Little).
- Automatically clean all imports at the end of compile time unless the
dirty trait is given.
- Clean now warns in autoclean namespaces (Robert Sedlacek).
- Document all refactored components (Robert Sedlacek).
- Improve error reporting (Robert Sedlacek).
- Added link to emacs syntax highlighter (Nelo Onyiah).
- Fix a doc typo (reported by Alexander Hartmaier).
- Make method keyword now only available by default in namespaces that
consumed MooseSetup (Robert Sedlacek).
- Be more strict about what gets accepted as injectable "code part"
(Robert Sedlacek).
- Split up namespaced declaration parsing and added context traits
(Robert Sedlacek).
- Break strip_name_and_options into strip_word and strip_options.
- Some refactoring on how options are handled.
0.20 2009-05-01 08:40:02Z
- Massive refactor for extensibility (Robert Sedlacek).
- Allow passing multiple comma seperated values to options
without repeating the key.
- Depend on MX::Method::Signatures 0.16 for non-scalar parameters.
- Documentation fixes (Matt Kraai).
- Added link to vim syntax (Rafael Kitover).
0.10 2009-04-08 02:09:56Z
- Depend on D::D 0.003005 for the inject_if_block return value.
- Docs now mention namespace::clean (Ash Berlin).
- Refactor - aka throw code away - by potring to
D::D::Context::Simple (Ash Berlin).
- Remove prototype from exported subs (Ash Berlin).
- Make keywords less reversed (i.e. as hash keys) and make class()
return an anon-metaclass (Ash Berlin).
- Update pod mentioning restrictions on class names (Ash Berlin).
0.09 2009-03-03 16:43:13Z
- Improve clean documentation:
- Actually use the clean keyword in the example (Hans Dieter Pearcey).
- Substitute MyDumper with Foo for consistency (Nelo Onyiah).
0.08 2009-03-03 01:55:46Z
- Implement the clean keyword.
- Document the clean keyword (Nelo Onyiah).
0.07 2009-02-28 20:01:32Z
- Mention all contributors.
- Use MooseX::Method::Signatures::Meta::Method instead of injecting
method keywords.
- Update copyright notice for the new year (Yanick Champoux).
0.06 2009-02-24 06:20:03Z
- Automatically import strict and warnings.
- Don't use the Moose sugar sugar methods for installing modifiers.
- Don't use the Moose sugar functions for applying roles.
- Use Test::NoWarnings instead of Test::Warn.
- Declare test dependency on Test::NoWarnings.
0.05 2009-02-23 07:33:16Z
- Depend on the latest MooseX::Method::Signatures.
- UnTODO passing tests.
- Docs now mention namespace::clean (Ash Berlin).
- Add tests some more problematic signatures (Piers Cawley).
- Make those work.
0.04 2009-02-21 21:41:01Z
- Fix a parsing bug related to class declarations with options being on
another line than the opening '{'.
- Depend on the latest MooseX::Method::Signatures.
- Added a test to catch weirdness in around filters and optional positionals
(Piers Cawley).
- Added a test for a segfault caused by a syntax error (Piers Cawley).
- Test for has +foo feature which does not work yet due to roles being
applied at the end (Tomas Doran).
0.03 2008-11-29 13:24:48Z
- Remove debugging code I accidentally left in th last release.
0.02 2008-11-26 13:20:08Z
- Bump Devel::Declare prerequisite to 0.003000.
0.01 2008-11-26 11:07:16Z
- More tests.
- Improve class nesting.
0.01_01 2008-10-19 19:08:16Z
- Initial release.
MooseX-Declare-0.38/CONTRIBUTING000644 000767 000024 00000005317 12253122762 016331 0ustar00etherstaff000000 000000
CONTRIBUTING
Thank you for considering contributing to this distribution. This file
contains instructions that will help you work with the source code.
The distribution is managed with Dist::Zilla. This means than many of the
usual files you might expect are not in the repository, but are generated
at release time (e.g. Makefile.PL).
However, you can run tests directly using the 'prove' tool:
$ prove -l
$ prove -lv t/some_test_file.t
$ prove -lvr t/
In most cases, 'prove' is entirely sufficent for you to test any
patches you have.
You may need to satisfy some dependencies. The easiest way to satisfy
dependencies is to install the last release -- this is available at
https://metacpan.org/release/MooseX-Declare.
If you use cpanminus, you can do it without downloading the tarball first:
$ cpanm --reinstall --installdeps --with-recommends MooseX::Declare
Dist::Zilla is a very powerful authoring tool, but requires a number of
author-specific plugins. If you would like to use it for contributing,
install it from CPAN, then run one of the following commands, depending on
your CPAN client:
$ cpan `dzil authordeps --missing`
$ dzil authordeps --missing | cpanm
You should then also install any additional requirements not needed by the
dzil build but may be needed by tests or other development:
# cpan `dzil listdeps --author --missing`
$ dzil listdeps --author --missing | cpanm
You can also do this via cpanm directly:
$ cpanm --reinstall --installdeps --with-develop --with-recommends MooseX::Declare
Once installed, here are some dzil commands you might try:
$ dzil build
$ dzil test
$ dzil test --release
$ dzil xtest
$ dzil listdeps --json
$ dzil build --notgz
You can learn more about Dist::Zilla at http://dzil.org/.
The code for this distribution is hosted at GitHub. The main repository is:
https://github.com/moose/MooseX-Declare.
You can submit code changes by forking the repository, pushing your code
changes to your clone, and then submitting a pull request. Detailed
instructions for doing that is available here:
https://help.github.com/
https://help.github.com/articles/creating-a-pull-request
If you have found a bug, but do not have an accompanying patch to fix it, you
can submit an issue report here:
https://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-Declare
or via bug-MooseX-Declare@rt.cpan.org.
There is also a mailing list available for users of this distribution, at
http://lists.perl.org/list/moose.html.
There is also an irc channel available for users of this distribution, at
irc://irc.perl.org/#moose.
This file was generated via Dist::Zilla::Plugin::GenerateFile::ShareDir 0.003 from a
template file originating in Dist-Zilla-PluginBundle-Author-ETHER-0.043.
MooseX-Declare-0.38/dist.ini000644 000767 000024 00000001671 12253122762 016142 0ustar00etherstaff000000 000000 name = MooseX-Declare
author = Florian Ragwitz
license = Perl_5
copyright_holder = Florian Ragwitz
copyright_year = 2008
[@Author::ETHER]
:version = 0.026
server = github
-remove = PodCoverageTests ; temporary
-remove = Test::PodSpelling ; temporary
-remove = Test::UnusedVars
-remove = Test::Pod::No404s ; URI::Find botches the geany link
Test::MinimumVersion.max_target_perl = 5.008008
AutoPrereqs.skip = ^::|^Role|DefClass|^ProvidesFooAttribute
Git::NextVersion.version_regexp = ^([\d._]+)(-TRIAL)?$
Authority.authority = cpan:FLORA
Git::Tag.tag_format = %v%t
Git::Tag.tag_message = v%v%t
[MetaResources]
x_IRC = irc://irc.perl.org/#moose
x_MailingList = http://lists.perl.org/list/moose.html
[Prereqs]
Devel::Declare = 0.005011 ; we actually use Devel::Declare::Context::Simple, but
; it has no version
; authordep Pod::Weaver 4
; authordep Pod::Weaver::Section::Contributors
[ContributorsFromGit]
MooseX-Declare-0.38/INSTALL000644 000767 000024 00000001721 12253122762 015523 0ustar00etherstaff000000 000000
This is the Perl distribution MooseX-Declare.
Installing MooseX-Declare is straightforward.
## Installation with cpanm
If you have cpanm, you only need one line:
% cpanm MooseX::Declare
If you are installing into a system-wide directory, you may need to pass the
"-S" flag to cpanm, which uses sudo to install the module:
% cpanm -S MooseX::Declare
## Installing with the CPAN shell
Alternatively, if your CPAN shell is set up, you should just be able to do:
% cpan MooseX::Declare
## Manual installation
As a last resort, you can manually install it. Download the tarball, untar it,
then build it:
% perl Build.PL
% ./Build && ./Build test
Then install it:
% ./Build install
If you are installing into a system-wide directory, you may need to run:
% sudo ./Build install
## Documentation
MooseX-Declare documentation is available as POD.
You can run perldoc from a shell to read the documentation:
% perldoc MooseX::Declare
MooseX-Declare-0.38/lib/000755 000767 000024 00000000000 12253122762 015237 5ustar00etherstaff000000 000000 MooseX-Declare-0.38/LICENSE000644 000767 000024 00000043664 12253122762 015513 0ustar00etherstaff000000 000000 This software is copyright (c) 2008 by Florian Ragwitz.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
Terms of the Perl programming language system itself
a) the GNU General Public License as published by the Free
Software Foundation; either version 1, or (at your option) any
later version, or
b) the "Artistic License"
--- The GNU General Public License, Version 1, February 1989 ---
This software is Copyright (c) 2008 by Florian Ragwitz.
This is free software, licensed under:
The GNU General Public License, Version 1, February 1989
GNU GENERAL PUBLIC LICENSE
Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
51 Franklin St, Suite 500, Boston, MA 02110-1335 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The license agreements of most software companies try to keep users
at the mercy of those companies. By contrast, our General Public
License is intended to guarantee your freedom to share and change free
software--to make sure the software is free for all its users. The
General Public License applies to the Free Software Foundation's
software and to any other program whose authors commit to using it.
You can use it for your programs, too.
When we speak of free software, we are referring to freedom, not
price. Specifically, the General Public License is designed to make
sure that you have the freedom to give away or sell copies of free
software, that you receive source code or can get it if you want it,
that you can change the software or use pieces of it in new free
programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if you
distribute copies of the software, or if you modify it.
For example, if you distribute copies of a such a program, whether
gratis or for a fee, you must give the recipients all the rights that
you have. You must make sure that they, too, receive or can get the
source code. And you must tell them their rights.
We protect your rights with two steps: (1) copyright the software, and
(2) offer you this license which gives you legal permission to copy,
distribute and/or modify the software.
Also, for each author's protection and ours, we want to make certain
that everyone understands that there is no warranty for this free
software. If the software is modified by someone else and passed on, we
want its recipients to know that what they have is not the original, so
that any problems introduced by others will not reflect on the original
authors' reputations.
The precise terms and conditions for copying, distribution and
modification follow.
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License Agreement applies to any program or other work which
contains a notice placed by the copyright holder saying it may be
distributed under the terms of this General Public License. The
"Program", below, refers to any such program or work, and a "work based
on the Program" means either the Program or any work containing the
Program or a portion of it, either verbatim or with modifications. Each
licensee is addressed as "you".
1. You may copy and distribute verbatim copies of the Program's source
code as you receive it, in any medium, provided that you conspicuously and
appropriately publish on each copy an appropriate copyright notice and
disclaimer of warranty; keep intact all the notices that refer to this
General Public License and to the absence of any warranty; and give any
other recipients of the Program a copy of this General Public License
along with the Program. You may charge a fee for the physical act of
transferring a copy.
2. You may modify your copy or copies of the Program or any portion of
it, and copy and distribute such modifications under the terms of Paragraph
1 above, provided that you also do the following:
a) cause the modified files to carry prominent notices stating that
you changed the files and the date of any change; and
b) cause the whole of any work that you distribute or publish, that
in whole or in part contains the Program or any part thereof, either
with or without modifications, to be licensed at no charge to all
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
Public License.
d) You may charge a fee for the physical act of transferring a
copy, and you may at your option offer warranty protection in
exchange for a fee.
Mere aggregation of another independent work with the Program (or its
derivative) on a volume of a storage or distribution medium does not bring
the other work under the scope of these terms.
3. You may copy and distribute the Program (or a portion or derivative of
it, under Paragraph 2) in object code or executable form under the terms of
Paragraphs 1 and 2 above provided that you also do one of the following:
a) accompany it with the complete corresponding machine-readable
source code, which must be distributed under the terms of
Paragraphs 1 and 2 above; or,
b) accompany it with a written offer, valid for at least three
years, to give any third party free (except for a nominal charge
for the cost of distribution) a complete machine-readable copy of the
corresponding source code, to be distributed under the terms of
Paragraphs 1 and 2 above; or,
c) accompany it with the information you received as to where the
corresponding source code may be obtained. (This alternative is
allowed only for noncommercial distribution and only if you
received the program in object code or executable form alone.)
Source code for a work means the preferred form of the work for making
modifications to it. For an executable file, complete source code means
all the source code for all modules it contains; but, as a special
exception, it need not include source code for modules which are standard
libraries that accompany the operating system on which the executable
file runs, or for standard header files or definitions files that
accompany that operating system.
4. You may not copy, modify, sublicense, distribute or transfer the
Program except as expressly provided under this General Public License.
Any attempt otherwise to copy, modify, sublicense, distribute or transfer
the Program is void, and will automatically terminate your rights to use
the Program under this License. However, parties who have received
copies, or rights to use copies, from you under this General Public
License will not have their licenses terminated so long as such parties
remain in full compliance.
5. By copying, distributing or modifying the Program (or any work based
on the Program) you indicate your acceptance of this license to do so,
and all its terms and conditions.
6. Each time you redistribute the Program (or any work based on the
Program), the recipient automatically receives a license from the original
licensor to copy, distribute or modify the Program subject to these
terms and conditions. You may not impose any further restrictions on the
recipients' exercise of the rights granted herein.
7. The Free Software Foundation may publish revised and/or new versions
of the General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the Program
specifies a version number of the license which applies to it and "any
later version", you have the option of following the terms and conditions
either of that version or of any later version published by the Free
Software Foundation. If the Program does not specify a version number of
the license, you may choose any version ever published by the Free Software
Foundation.
8. If you wish to incorporate parts of the Program into other free
programs whose distribution conditions are different, write to the author
to ask for permission. For software which is copyrighted by the Free
Software Foundation, write to the Free Software Foundation; we sometimes
make exceptions for this. Our decision will be guided by the two goals
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
NO WARRANTY
9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.
10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
Appendix: How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
Copyright (C) 19yy
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the
appropriate parts of the General Public License. Of course, the
commands you use may be called something other than `show w' and `show
c'; they could even be mouse-clicks or menu items--whatever suits your
program.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the program, if
necessary. Here a sample; alter the names:
Yoyodyne, Inc., hereby disclaims all copyright interest in the
program `Gnomovision' (a program to direct compilers to make passes
at assemblers) written by James Hacker.
, 1 April 1989
Ty Coon, President of Vice
That's all there is to it!
--- The Artistic License 1.0 ---
This software is Copyright (c) 2008 by Florian Ragwitz.
This is free software, licensed under:
The Artistic License 1.0
The Artistic License
Preamble
The intent of this document is to state the conditions under which a Package
may be copied, such that the Copyright Holder maintains some semblance of
artistic control over the development of the package, while giving the users of
the package the right to use and distribute the Package in a more-or-less
customary fashion, plus the right to make reasonable modifications.
Definitions:
- "Package" refers to the collection of files distributed by the Copyright
Holder, and derivatives of that collection of files created through
textual modification.
- "Standard Version" refers to such a Package if it has not been modified,
or has been modified in accordance with the wishes of the Copyright
Holder.
- "Copyright Holder" is whoever is named in the copyright or copyrights for
the package.
- "You" is you, if you're thinking about copying or distributing this Package.
- "Reasonable copying fee" is whatever you can justify on the basis of media
cost, duplication charges, time of people involved, and so on. (You will
not be required to justify it to the Copyright Holder, but only to the
computing community at large as a market that must bear the fee.)
- "Freely Available" means that no fee is charged for the item itself, though
there may be fees involved in handling the item. It also means that
recipients of the item may redistribute it under the same conditions they
received it.
1. You may make and give away verbatim copies of the source form of the
Standard Version of this Package without restriction, provided that you
duplicate all of the original copyright notices and associated disclaimers.
2. You may apply bug fixes, portability fixes and other modifications derived
from the Public Domain or from the Copyright Holder. A Package modified in such
a way shall still be considered the Standard Version.
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
c) rename any non-standard executables so the names do not conflict with
standard executables, which must also be provided, and provide a separate
manual page for each non-standard executable that clearly documents how it
differs from the Standard Version.
d) make other distribution arrangements with the Copyright Holder.
4. You may distribute the programs of this Package in object code or executable
form, provided that you do at least ONE of the following:
a) distribute a Standard Version of the executables and library files,
together with instructions (in the manual page or equivalent) on where to
get the Standard Version.
b) accompany the distribution with the machine-readable source of the Package
with your modifications.
c) accompany any non-standard executables with their corresponding Standard
Version executables, giving the non-standard executables non-standard
names, and clearly documenting the differences in manual pages (or
equivalent), together with instructions on where to get the Standard
Version.
d) make other distribution arrangements with the Copyright Holder.
5. You may charge a reasonable copying fee for any distribution of this
Package. You may charge any fee you choose for support of this Package. You
may not charge a fee for this Package itself. However, you may distribute this
Package in aggregate with other (possibly commercial) programs as part of a
larger (possibly commercial) software distribution provided that you do not
advertise this Package as a product of your own.
6. The scripts and library files supplied as input to or produced as output
from the programs of this Package do not automatically fall under the copyright
of this Package, but belong to whomever generated them, and may be sold
commercially, and may be aggregated with this Package.
7. C or perl subroutines supplied by you and linked into this Package shall not
be considered part of this Package.
8. The name of the Copyright Holder may not be used to endorse or promote
products derived from this software without specific prior written permission.
9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
The End
MooseX-Declare-0.38/Makefile.PL000644 000767 000024 00000010331 12253122762 016441 0ustar00etherstaff000000 000000 # This Makefile.PL for MooseX-Declare was generated by
# Dist::Zilla::Plugin::MakeMaker::Fallback 0.005.
# Don't edit it but the dist.ini used to construct it.
use strict;
use warnings;
BEGIN {
my %configure_requires = (
'ExtUtils::MakeMaker' => '6.30',
'Module::Build::Tiny' => '0.030',
);
my @missing = grep {
! eval "require $_; $_->VERSION($configure_requires{$_}); 1"
} keys %configure_requires;
if (not @missing)
{
print "Congratulations, your toolchain understands 'configure_requires'!\n\n";
}
else
{
$ENV{PERL_MM_FALLBACK_SILENCE_WARNING} or warn <<'EOW';
*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***
If you're seeing this warning, your toolchain is really, really old* and you'll
almost certainly have problems installing CPAN modules from this century. But
never fear, dear user, for we have the technology to fix this!
If you're using CPAN.pm to install things, then you can upgrade it using:
cpan CPAN
If you're using CPANPLUS to install things, then you can upgrade it using:
cpanp CPANPLUS
If you're using cpanminus, you shouldn't be seeing this message in the first
place, so please file an issue on github.
If you're installing manually, please retrain your fingers to run Build.PL
when present instead.
This public service announcement was brought to you by the Perl Toolchain
Gang, the irc.perl.org #toolchain IRC channel, and the number 42.
----
* Alternatively, you are doing something overly clever, in which case you
should consider setting the 'prefer_installer' config option in CPAN.pm, or
'prefer_makefile' in CPANPLUS, to 'mb" and '0' respectively.
You can also silence this warning for future installations by setting the
PERL_MM_FALLBACK_SILENCE_WARNING environment variable.
EOW
sleep 10 if -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT));
}
}
use 5.006;
use ExtUtils::MakeMaker 6.30;
my %WriteMakefileArgs = (
"ABSTRACT" => "Declarative syntax for Moose",
"AUTHOR" => "Florian Ragwitz ",
"BUILD_REQUIRES" => {},
"CONFIGURE_REQUIRES" => {
"ExtUtils::MakeMaker" => "6.30",
"Module::Build::Tiny" => "0.030"
},
"DISTNAME" => "MooseX-Declare",
"EXE_FILES" => [],
"LICENSE" => "perl",
"NAME" => "MooseX::Declare",
"PREREQ_PM" => {
"Carp" => 0,
"Devel::Declare" => "0.005011",
"Devel::Declare::Context::Simple" => 0,
"List::MoreUtils" => 0,
"Module::Runtime" => 0,
"Moose" => "0.90",
"Moose::Meta::Class" => 0,
"Moose::Role" => 0,
"Moose::Util" => 0,
"Moose::Util::TypeConstraints" => 0,
"MooseX::Method::Signatures" => "0.36",
"MooseX::Method::Signatures::Meta::Method" => 0,
"MooseX::Method::Signatures::Types" => 0,
"MooseX::Role::Parameterized" => "0.12",
"MooseX::Types::Moose" => "0.20",
"Parse::Method::Signatures" => 0,
"Parse::Method::Signatures::Param::Placeholder" => 0,
"Sub::Exporter" => 0,
"Sub::Install" => 0,
"aliased" => 0,
"constant" => 0,
"namespace::autoclean" => "0.09",
"namespace::clean" => "0.11",
"overload" => 0,
"strict" => 0,
"warnings" => 0
},
"TEST_REQUIRES" => {
"ExtUtils::MakeMaker" => 0,
"File::Spec::Functions" => 0,
"List::Util" => 0,
"MooseX::Types::Structured" => 0,
"Test::Fatal" => 0,
"Test::Moose" => 0,
"Test::More" => "0.89",
"if" => 0,
"lib" => 0
},
"VERSION" => "0.38",
"test" => {
"TESTS" => "t/*.t t/recipes/basics/*.t"
}
);
unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
my $tr = delete $WriteMakefileArgs{TEST_REQUIRES};
my $br = $WriteMakefileArgs{BUILD_REQUIRES};
for my $mod ( keys %$tr ) {
if ( exists $br->{$mod} ) {
$br->{$mod} = $tr->{$mod} if $tr->{$mod} > $br->{$mod};
}
else {
$br->{$mod} = $tr->{$mod};
}
}
}
unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
my $pp = $WriteMakefileArgs{PREREQ_PM};
for my $mod ( keys %$br ) {
if ( exists $pp->{$mod} ) {
$pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
}
else {
$pp->{$mod} = $br->{$mod};
}
}
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
WriteMakefile(%WriteMakefileArgs);
MooseX-Declare-0.38/MANIFEST000644 000767 000024 00000004015 12253122762 015622 0ustar00etherstaff000000 000000 Build.PL
CONTRIBUTING
Changes
INSTALL
LICENSE
MANIFEST
META.json
META.yml
Makefile.PL
README
README.md
TODO
dist.ini
lib/MooseX/Declare.pm
lib/MooseX/Declare/Context.pm
lib/MooseX/Declare/Context/Namespaced.pm
lib/MooseX/Declare/Context/Parameterized.pm
lib/MooseX/Declare/Context/WithOptions.pm
lib/MooseX/Declare/StackItem.pm
lib/MooseX/Declare/Syntax/EmptyBlockIfMissing.pm
lib/MooseX/Declare/Syntax/Extending.pm
lib/MooseX/Declare/Syntax/InnerSyntaxHandling.pm
lib/MooseX/Declare/Syntax/Keyword/Class.pm
lib/MooseX/Declare/Syntax/Keyword/Clean.pm
lib/MooseX/Declare/Syntax/Keyword/Method.pm
lib/MooseX/Declare/Syntax/Keyword/MethodModifier.pm
lib/MooseX/Declare/Syntax/Keyword/Namespace.pm
lib/MooseX/Declare/Syntax/Keyword/Role.pm
lib/MooseX/Declare/Syntax/Keyword/With.pm
lib/MooseX/Declare/Syntax/KeywordHandling.pm
lib/MooseX/Declare/Syntax/MethodDeclaration.pm
lib/MooseX/Declare/Syntax/MethodDeclaration/Parameterized.pm
lib/MooseX/Declare/Syntax/MooseSetup.pm
lib/MooseX/Declare/Syntax/NamespaceHandling.pm
lib/MooseX/Declare/Syntax/OptionHandling.pm
lib/MooseX/Declare/Syntax/RoleApplication.pm
lib/MooseX/Declare/Util.pm
t/00-report-prereqs.t
t/anon.t
t/attribute_issues.t
t/autoclean.t
t/basic.t
t/clean.t
t/import.t
t/inner_keywords.t
t/lib/Affe.pm
t/lib/Foo.pm
t/lib/ParameterizedRole.pm
t/lib/Tiger.pm
t/lib/WithMethod.pm
t/lib/WithNewline.pm
t/manual_namespace.t
t/meta_should_be_signature.t
t/method_as_default.t
t/modifier_order.t
t/modifiers.t
t/modify_with_invocant.t
t/nested_anonymous_classes.t
t/nesting.t
t/optional_positional.t
t/override_attribute_from_role.t
t/recipes/basics/001_point.t
t/recipes/basics/002_bank_account.t
t/recipes/basics/006_augment_inner.t
t/role_application.t
t/role_parameterized.t
t/segfault_syntax_error.t
weaver.ini
xt/author/00-compile.t
xt/release/changes_has_content.t
xt/release/cpan-changes.t
xt/release/distmeta.t
xt/release/eol.t
xt/release/kwalitee.t
xt/release/minimum-version.t
xt/release/mojibake.t
xt/release/no-tabs.t
xt/release/pod-syntax.t
xt/release/portability.t
xt/release/test-version.t
MooseX-Declare-0.38/META.json000644 000767 000024 00000067263 12253122762 016130 0ustar00etherstaff000000 000000 {
"abstract" : "Declarative syntax for Moose",
"author" : [
"Florian Ragwitz "
],
"dynamic_config" : 0,
"generated_by" : "Dist::Zilla version 5.006, CPAN::Meta::Converter version 2.133380",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
"version" : "2"
},
"name" : "MooseX-Declare",
"no_index" : {
"directory" : [
"t",
"xt",
"examples"
]
},
"prereqs" : {
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "6.30",
"Module::Build::Tiny" : "0.030"
}
},
"develop" : {
"recommends" : {
"Dist::Zilla::PluginBundle::Author::ETHER" : "0.043"
},
"requires" : {
"Dist::Zilla" : "5.006",
"Dist::Zilla::Plugin::ContributorsFromGit" : "0",
"Dist::Zilla::Plugin::GitHub::Update" : "0",
"Dist::Zilla::Plugin::GithubMeta" : "0",
"Dist::Zilla::Plugin::MakeMaker::Fallback" : "0",
"Dist::Zilla::Plugin::MetaResources" : "0",
"Dist::Zilla::Plugin::ModuleBuildTiny" : "0.004",
"Dist::Zilla::Plugin::Prereqs" : "0",
"Dist::Zilla::PluginBundle::Author::ETHER" : "0.026",
"File::Spec" : "0",
"IO::Handle" : "0",
"IPC::Open3" : "0",
"Pod::Weaver::Section::Contributors" : "0",
"Test::CPAN::Changes" : "0.19",
"Test::CPAN::Meta" : "0",
"Test::Kwalitee" : "1.12",
"Test::More" : "0.94",
"Test::NoTabs" : "0",
"Test::Pod" : "1.41"
}
},
"runtime" : {
"requires" : {
"Carp" : "0",
"Devel::Declare" : "0.005011",
"Devel::Declare::Context::Simple" : "0",
"List::MoreUtils" : "0",
"Module::Runtime" : "0",
"Moose" : "0.90",
"Moose::Meta::Class" : "0",
"Moose::Role" : "0",
"Moose::Util" : "0",
"Moose::Util::TypeConstraints" : "0",
"MooseX::Method::Signatures" : "0.36",
"MooseX::Method::Signatures::Meta::Method" : "0",
"MooseX::Method::Signatures::Types" : "0",
"MooseX::Role::Parameterized" : "0.12",
"MooseX::Types::Moose" : "0.20",
"Parse::Method::Signatures" : "0",
"Parse::Method::Signatures::Param::Placeholder" : "0",
"Sub::Exporter" : "0",
"Sub::Install" : "0",
"aliased" : "0",
"constant" : "0",
"namespace::autoclean" : "0.09",
"namespace::clean" : "0.11",
"overload" : "0",
"perl" : "5.006",
"strict" : "0",
"warnings" : "0"
}
},
"test" : {
"recommends" : {
"CPAN::Meta" : "0",
"CPAN::Meta::Requirements" : "0"
},
"requires" : {
"ExtUtils::MakeMaker" : "0",
"File::Spec::Functions" : "0",
"List::Util" : "0",
"MooseX::Types::Structured" : "0",
"Test::Fatal" : "0",
"Test::Moose" : "0",
"Test::More" : "0.89",
"if" : "0",
"lib" : "0"
}
}
},
"provides" : {
"MooseX::Declare" : {
"file" : "lib/MooseX/Declare.pm",
"version" : "0.38"
},
"MooseX::Declare::Context" : {
"file" : "lib/MooseX/Declare/Context.pm",
"version" : "0.38"
},
"MooseX::Declare::Context::Namespaced" : {
"file" : "lib/MooseX/Declare/Context/Namespaced.pm",
"version" : "0.38"
},
"MooseX::Declare::Context::Parameterized" : {
"file" : "lib/MooseX/Declare/Context/Parameterized.pm",
"version" : "0.38"
},
"MooseX::Declare::Context::WithOptions" : {
"file" : "lib/MooseX/Declare/Context/WithOptions.pm",
"version" : "0.38"
},
"MooseX::Declare::StackItem" : {
"file" : "lib/MooseX/Declare/StackItem.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::EmptyBlockIfMissing" : {
"file" : "lib/MooseX/Declare/Syntax/EmptyBlockIfMissing.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::Extending" : {
"file" : "lib/MooseX/Declare/Syntax/Extending.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::InnerSyntaxHandling" : {
"file" : "lib/MooseX/Declare/Syntax/InnerSyntaxHandling.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::Keyword::Class" : {
"file" : "lib/MooseX/Declare/Syntax/Keyword/Class.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::Keyword::Clean" : {
"file" : "lib/MooseX/Declare/Syntax/Keyword/Clean.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::Keyword::Method" : {
"file" : "lib/MooseX/Declare/Syntax/Keyword/Method.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::Keyword::MethodModifier" : {
"file" : "lib/MooseX/Declare/Syntax/Keyword/MethodModifier.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::Keyword::Namespace" : {
"file" : "lib/MooseX/Declare/Syntax/Keyword/Namespace.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::Keyword::Role" : {
"file" : "lib/MooseX/Declare/Syntax/Keyword/Role.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::Keyword::With" : {
"file" : "lib/MooseX/Declare/Syntax/Keyword/With.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::KeywordHandling" : {
"file" : "lib/MooseX/Declare/Syntax/KeywordHandling.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::MethodDeclaration" : {
"file" : "lib/MooseX/Declare/Syntax/MethodDeclaration.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::MethodDeclaration::Parameterized" : {
"file" : "lib/MooseX/Declare/Syntax/MethodDeclaration/Parameterized.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::MooseSetup" : {
"file" : "lib/MooseX/Declare/Syntax/MooseSetup.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::NamespaceHandling" : {
"file" : "lib/MooseX/Declare/Syntax/NamespaceHandling.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::OptionHandling" : {
"file" : "lib/MooseX/Declare/Syntax/OptionHandling.pm",
"version" : "0.38"
},
"MooseX::Declare::Syntax::RoleApplication" : {
"file" : "lib/MooseX/Declare/Syntax/RoleApplication.pm",
"version" : "0.38"
},
"MooseX::Declare::Util" : {
"file" : "lib/MooseX/Declare/Util.pm",
"version" : "0.38"
}
},
"release_status" : "stable",
"resources" : {
"bugtracker" : {
"mailto" : "bug-MooseX-Declare@rt.cpan.org",
"web" : "https://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-Declare"
},
"homepage" : "https://github.com/moose/MooseX-Declare",
"repository" : {
"type" : "git",
"url" : "https://github.com/moose/MooseX-Declare.git",
"web" : "https://github.com/moose/MooseX-Declare"
},
"x_IRC" : "irc://irc.perl.org/#moose",
"x_MailingList" : "http://lists.perl.org/list/moose.html"
},
"version" : "0.38",
"x_Dist_Zilla" : {
"perl" : {
"version" : "5.019006"
},
"plugins" : [
{
"class" : "Dist::Zilla::Plugin::Git::NextVersion",
"name" : "@Author::ETHER/Git::NextVersion",
"version" : "2.019"
},
{
"class" : "Dist::Zilla::Plugin::PromptIfStale",
"config" : {
"Dist::Zilla::Plugin::PromptIfStale" : {
"check_all_plugins" : 0,
"check_all_prereqs" : 0,
"modules" : [
"Dist::Zilla::PluginBundle::Author::ETHER"
],
"phase" : "build",
"skip" : []
}
},
"name" : "@Author::ETHER/build",
"version" : "0.015"
},
{
"class" : "Dist::Zilla::Plugin::PromptIfStale",
"config" : {
"Dist::Zilla::Plugin::PromptIfStale" : {
"check_all_plugins" : "1",
"check_all_prereqs" : "1",
"modules" : [],
"phase" : "release",
"skip" : []
}
},
"name" : "@Author::ETHER/release",
"version" : "0.015"
},
{
"class" : "Dist::Zilla::Plugin::ExecDir",
"name" : "@Author::ETHER/ExecDir",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::ShareDir",
"name" : "@Author::ETHER/ShareDir",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::FileFinder::ByName",
"name" : "@Author::ETHER/Examples",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::Git::GatherDir",
"name" : "@Author::ETHER/Git::GatherDir",
"version" : "2.019"
},
{
"class" : "Dist::Zilla::Plugin::MetaYAML",
"name" : "@Author::ETHER/MetaYAML",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::MetaJSON",
"name" : "@Author::ETHER/MetaJSON",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::License",
"name" : "@Author::ETHER/License",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::Readme",
"name" : "@Author::ETHER/Readme",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::Manifest",
"name" : "@Author::ETHER/Manifest",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::GenerateFile::ShareDir",
"config" : {
"Dist::Zilla::Plugin::GenerateFile::ShareDir" : {
"destination_filename" : "CONTRIBUTING",
"dist" : "Dist-Zilla-PluginBundle-Author-ETHER",
"encoding" : "UTF-8",
"source_filename" : "CONTRIBUTING"
}
},
"name" : "@Author::ETHER/GenerateFile::ShareDir",
"version" : "0.003"
},
{
"class" : "Dist::Zilla::Plugin::Test::Compile",
"config" : {
"Dist::Zilla::Plugin::Test::Compile" : {
"filename" : "xt/author/00-compile.t",
"module_finder" : [
":InstallModules"
],
"script_finder" : [
":ExecFiles",
"@Author::ETHER/Examples"
]
}
},
"name" : "@Author::ETHER/Test::Compile",
"version" : "2.039"
},
{
"class" : "Dist::Zilla::Plugin::Test::NoTabs",
"config" : {
"Dist::Zilla::Plugin::Test::NoTabs" : {
"module_finder" : [
":InstallModules"
],
"script_finder" : [
":ExecFiles",
"@Author::ETHER/Examples"
]
}
},
"name" : "@Author::ETHER/Test::NoTabs",
"version" : "0.05"
},
{
"class" : "Dist::Zilla::Plugin::EOLTests",
"name" : "@Author::ETHER/EOLTests",
"version" : "0.02"
},
{
"class" : "Dist::Zilla::Plugin::MetaTests",
"name" : "@Author::ETHER/MetaTests",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::Test::Version",
"name" : "@Author::ETHER/Test::Version",
"version" : "0.002004"
},
{
"class" : "Dist::Zilla::Plugin::Test::CPAN::Changes",
"name" : "@Author::ETHER/Test::CPAN::Changes",
"version" : "0.008"
},
{
"class" : "Dist::Zilla::Plugin::Test::ChangesHasContent",
"name" : "@Author::ETHER/Test::ChangesHasContent",
"version" : "0.006"
},
{
"class" : "Dist::Zilla::Plugin::Test::MinimumVersion",
"name" : "@Author::ETHER/Test::MinimumVersion",
"version" : "2.000005"
},
{
"class" : "Dist::Zilla::Plugin::PodSyntaxTests",
"name" : "@Author::ETHER/PodSyntaxTests",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::Test::Kwalitee",
"name" : "@Author::ETHER/Test::Kwalitee",
"version" : "2.07"
},
{
"class" : "Dist::Zilla::Plugin::MojibakeTests",
"name" : "@Author::ETHER/MojibakeTests",
"version" : "0.5"
},
{
"class" : "Dist::Zilla::Plugin::Test::ReportPrereqs",
"name" : "@Author::ETHER/Test::ReportPrereqs",
"version" : "0.010"
},
{
"class" : "Dist::Zilla::Plugin::Test::Portability",
"name" : "@Author::ETHER/Test::Portability",
"version" : "2.000005"
},
{
"class" : "Dist::Zilla::Plugin::PruneCruft",
"name" : "@Author::ETHER/PruneCruft",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::ManifestSkip",
"name" : "@Author::ETHER/ManifestSkip",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::Authority",
"name" : "@Author::ETHER/Authority",
"version" : "1.006"
},
{
"class" : "Dist::Zilla::Plugin::Git::Describe",
"name" : "@Author::ETHER/Git::Describe",
"version" : "0.003"
},
{
"class" : "Dist::Zilla::Plugin::PkgVersion",
"name" : "@Author::ETHER/PkgVersion",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::PodWeaver",
"config" : {
"Dist::Zilla::Plugin::PodWeaver" : {
"finder" : [
":InstallModules",
":ExecFiles"
],
"plugins" : [
{
"class" : "Pod::Weaver::Plugin::EnsurePod5",
"name" : "@CorePrep/EnsurePod5",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Plugin::H1Nester",
"name" : "@CorePrep/H1Nester",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Plugin::SingleEncoding",
"name" : "-SingleEncoding",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Name",
"name" : "Name",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Region",
"name" : "prelude",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Generic",
"name" : "SYNOPSIS",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Generic",
"name" : "DESCRIPTION",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Generic",
"name" : "OVERVIEW",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Collect",
"name" : "ATTRIBUTES",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Collect",
"name" : "METHODS",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Collect",
"name" : "FUNCTIONS",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Collect",
"name" : "TYPES",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Leftovers",
"name" : "Leftovers",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Region",
"name" : "postlude",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Authors",
"name" : "Authors",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Section::Contributors",
"name" : "Contributors",
"version" : "0.007"
},
{
"class" : "Pod::Weaver::Section::Legal",
"name" : "Legal",
"version" : "4.004"
},
{
"class" : "Pod::Weaver::Plugin::Transformer",
"name" : "-Transformer",
"version" : "4.004"
}
]
}
},
"name" : "@Author::ETHER/PodWeaver",
"version" : "4.002"
},
{
"class" : "Dist::Zilla::Plugin::NextRelease",
"name" : "@Author::ETHER/NextRelease",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::ReadmeAnyFromPod",
"name" : "@Author::ETHER/ReadmeAnyFromPod",
"version" : "0.133360"
},
{
"class" : "Dist::Zilla::Plugin::GithubMeta",
"name" : "@Author::ETHER/GithubMeta",
"version" : "0.42"
},
{
"class" : "Dist::Zilla::Plugin::AutoMetaResources",
"name" : "@Author::ETHER/AutoMetaResources",
"version" : "1.20"
},
{
"class" : "Dist::Zilla::Plugin::MetaNoIndex",
"name" : "@Author::ETHER/MetaNoIndex",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : "@Author::ETHER/MetaProvides::Package/AUTOVIV/:InstallModulesPM",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::MetaProvides::Package",
"config" : {
"Dist::Zilla::Plugin::MetaProvides::Package" : {},
"Dist::Zilla::Role::MetaProvider::Provider" : {
"inherit_missing" : "1",
"inherit_version" : "1",
"meta_noindex" : "1"
}
},
"name" : "@Author::ETHER/MetaProvides::Package",
"version" : "1.15000001"
},
{
"class" : "Dist::Zilla::Plugin::MetaConfig",
"name" : "@Author::ETHER/MetaConfig",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::AutoPrereqs",
"name" : "@Author::ETHER/AutoPrereqs",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs::AuthorDeps",
"name" : "@Author::ETHER/Prereqs::AuthorDeps",
"version" : "0.002"
},
{
"class" : "Dist::Zilla::Plugin::MinimumPerl",
"name" : "@Author::ETHER/MinimumPerl",
"version" : "1.003"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "develop",
"type" : "requires"
}
},
"name" : "@Author::ETHER/installer_requirements",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "develop",
"type" : "recommends"
}
},
"name" : "@Author::ETHER/pluginbundle_version",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::RunExtraTests",
"name" : "@Author::ETHER/RunExtraTests",
"version" : "0.016"
},
{
"class" : "Dist::Zilla::Plugin::MakeMaker::Fallback",
"name" : "@Author::ETHER/MakeMaker::Fallback",
"version" : "0.005"
},
{
"class" : "Dist::Zilla::Plugin::ModuleBuildTiny",
"name" : "@Author::ETHER/ModuleBuildTiny",
"version" : "0.005"
},
{
"class" : "Dist::Zilla::Plugin::InstallGuide",
"name" : "@Author::ETHER/InstallGuide",
"version" : "1.200002"
},
{
"class" : "Dist::Zilla::Plugin::CheckSelfDependency",
"name" : "@Author::ETHER/CheckSelfDependency",
"version" : "0.006"
},
{
"class" : "Dist::Zilla::Plugin::Run::AfterBuild",
"name" : "@Author::ETHER/Run::AfterBuild",
"version" : "0.020"
},
{
"class" : "Dist::Zilla::Plugin::Git::Check",
"name" : "@Author::ETHER/initial check",
"version" : "2.019"
},
{
"class" : "Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts",
"name" : "@Author::ETHER/Git::CheckFor::MergeConflicts",
"version" : "0.008"
},
{
"class" : "Dist::Zilla::Plugin::Git::CheckFor::CorrectBranch",
"name" : "@Author::ETHER/Git::CheckFor::CorrectBranch",
"version" : "0.008"
},
{
"class" : "Dist::Zilla::Plugin::Git::Remote::Check",
"name" : "@Author::ETHER/Git::Remote::Check",
"version" : "0.1.2"
},
{
"class" : "Dist::Zilla::Plugin::CheckPrereqsIndexed",
"name" : "@Author::ETHER/CheckPrereqsIndexed",
"version" : "0.009"
},
{
"class" : "Dist::Zilla::Plugin::TestRelease",
"name" : "@Author::ETHER/TestRelease",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::Git::Check",
"name" : "@Author::ETHER/after tests",
"version" : "2.019"
},
{
"class" : "Dist::Zilla::Plugin::UploadToCPAN",
"name" : "@Author::ETHER/UploadToCPAN",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::CopyFilesFromRelease",
"name" : "@Author::ETHER/CopyFilesFromRelease",
"version" : "0.001"
},
{
"class" : "Dist::Zilla::Plugin::Git::Commit",
"name" : "@Author::ETHER/Git::Commit",
"version" : "2.019"
},
{
"class" : "Dist::Zilla::Plugin::Git::Tag",
"name" : "@Author::ETHER/Git::Tag",
"version" : "2.019"
},
{
"class" : "Dist::Zilla::Plugin::GitHub::Update",
"name" : "@Author::ETHER/GitHub::Update",
"version" : "0.36"
},
{
"class" : "Dist::Zilla::Plugin::Git::Push",
"name" : "@Author::ETHER/Git::Push",
"version" : "2.019"
},
{
"class" : "Dist::Zilla::Plugin::InstallRelease",
"name" : "@Author::ETHER/InstallRelease",
"version" : "0.008"
},
{
"class" : "Dist::Zilla::Plugin::ConfirmRelease",
"name" : "@Author::ETHER/ConfirmRelease",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "develop",
"type" : "requires"
}
},
"name" : "@Author::ETHER/via_options",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::MetaResources",
"name" : "MetaResources",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "runtime",
"type" : "requires"
}
},
"name" : "Prereqs",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::ContributorsFromGit",
"name" : "ContributorsFromGit",
"version" : "0.006"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":InstallModules",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":IncModules",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":TestFiles",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ExecFiles",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ShareFiles",
"version" : "5.006"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":MainModule",
"version" : "5.006"
}
],
"zilla" : {
"class" : "Dist::Zilla::Dist::Builder",
"config" : {
"is_trial" : "0"
},
"version" : "5.006"
}
},
"x_authority" : "cpan:FLORA",
"x_contributors" : [
"Ash Berlin ",
"Chas. J. Owens IV ",
"Chris Prather ",
"Dave Rolsky ",
"Devin Austin ",
"Hans Dieter Pearcey ",
"Justin Hunter ",
"Karen Etheridge ",
"Matt Kraai ",
"Michele Beltrame ",
"Nelo Onyiah ",
"Nick Perez ",
"Piers Cawley ",
"Rafael Kitover ",
"Robert 'phaylon' Sedlacek ",
"Stevan Little ",
"Tomas Doran ",
"Yanick Champoux ",
"leedo "
]
}
MooseX-Declare-0.38/META.yml000644 000767 000024 00000043615 12253122762 015753 0ustar00etherstaff000000 000000 ---
abstract: 'Declarative syntax for Moose'
author:
- 'Florian Ragwitz '
build_requires:
ExtUtils::MakeMaker: 0
File::Spec::Functions: 0
List::Util: 0
MooseX::Types::Structured: 0
Test::Fatal: 0
Test::Moose: 0
Test::More: 0.89
if: 0
lib: 0
configure_requires:
ExtUtils::MakeMaker: 6.30
Module::Build::Tiny: 0.030
dynamic_config: 0
generated_by: 'Dist::Zilla version 5.006, CPAN::Meta::Converter version 2.133380'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
name: MooseX-Declare
no_index:
directory:
- t
- xt
- examples
provides:
MooseX::Declare:
file: lib/MooseX/Declare.pm
version: 0.38
MooseX::Declare::Context:
file: lib/MooseX/Declare/Context.pm
version: 0.38
MooseX::Declare::Context::Namespaced:
file: lib/MooseX/Declare/Context/Namespaced.pm
version: 0.38
MooseX::Declare::Context::Parameterized:
file: lib/MooseX/Declare/Context/Parameterized.pm
version: 0.38
MooseX::Declare::Context::WithOptions:
file: lib/MooseX/Declare/Context/WithOptions.pm
version: 0.38
MooseX::Declare::StackItem:
file: lib/MooseX/Declare/StackItem.pm
version: 0.38
MooseX::Declare::Syntax::EmptyBlockIfMissing:
file: lib/MooseX/Declare/Syntax/EmptyBlockIfMissing.pm
version: 0.38
MooseX::Declare::Syntax::Extending:
file: lib/MooseX/Declare/Syntax/Extending.pm
version: 0.38
MooseX::Declare::Syntax::InnerSyntaxHandling:
file: lib/MooseX/Declare/Syntax/InnerSyntaxHandling.pm
version: 0.38
MooseX::Declare::Syntax::Keyword::Class:
file: lib/MooseX/Declare/Syntax/Keyword/Class.pm
version: 0.38
MooseX::Declare::Syntax::Keyword::Clean:
file: lib/MooseX/Declare/Syntax/Keyword/Clean.pm
version: 0.38
MooseX::Declare::Syntax::Keyword::Method:
file: lib/MooseX/Declare/Syntax/Keyword/Method.pm
version: 0.38
MooseX::Declare::Syntax::Keyword::MethodModifier:
file: lib/MooseX/Declare/Syntax/Keyword/MethodModifier.pm
version: 0.38
MooseX::Declare::Syntax::Keyword::Namespace:
file: lib/MooseX/Declare/Syntax/Keyword/Namespace.pm
version: 0.38
MooseX::Declare::Syntax::Keyword::Role:
file: lib/MooseX/Declare/Syntax/Keyword/Role.pm
version: 0.38
MooseX::Declare::Syntax::Keyword::With:
file: lib/MooseX/Declare/Syntax/Keyword/With.pm
version: 0.38
MooseX::Declare::Syntax::KeywordHandling:
file: lib/MooseX/Declare/Syntax/KeywordHandling.pm
version: 0.38
MooseX::Declare::Syntax::MethodDeclaration:
file: lib/MooseX/Declare/Syntax/MethodDeclaration.pm
version: 0.38
MooseX::Declare::Syntax::MethodDeclaration::Parameterized:
file: lib/MooseX/Declare/Syntax/MethodDeclaration/Parameterized.pm
version: 0.38
MooseX::Declare::Syntax::MooseSetup:
file: lib/MooseX/Declare/Syntax/MooseSetup.pm
version: 0.38
MooseX::Declare::Syntax::NamespaceHandling:
file: lib/MooseX/Declare/Syntax/NamespaceHandling.pm
version: 0.38
MooseX::Declare::Syntax::OptionHandling:
file: lib/MooseX/Declare/Syntax/OptionHandling.pm
version: 0.38
MooseX::Declare::Syntax::RoleApplication:
file: lib/MooseX/Declare/Syntax/RoleApplication.pm
version: 0.38
MooseX::Declare::Util:
file: lib/MooseX/Declare/Util.pm
version: 0.38
requires:
Carp: 0
Devel::Declare: 0.005011
Devel::Declare::Context::Simple: 0
List::MoreUtils: 0
Module::Runtime: 0
Moose: 0.90
Moose::Meta::Class: 0
Moose::Role: 0
Moose::Util: 0
Moose::Util::TypeConstraints: 0
MooseX::Method::Signatures: 0.36
MooseX::Method::Signatures::Meta::Method: 0
MooseX::Method::Signatures::Types: 0
MooseX::Role::Parameterized: 0.12
MooseX::Types::Moose: 0.20
Parse::Method::Signatures: 0
Parse::Method::Signatures::Param::Placeholder: 0
Sub::Exporter: 0
Sub::Install: 0
aliased: 0
constant: 0
namespace::autoclean: 0.09
namespace::clean: 0.11
overload: 0
perl: 5.006
strict: 0
warnings: 0
resources:
IRC: irc://irc.perl.org/#moose
MailingList: http://lists.perl.org/list/moose.html
bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-Declare
homepage: https://github.com/moose/MooseX-Declare
repository: https://github.com/moose/MooseX-Declare.git
version: 0.38
x_Dist_Zilla:
perl:
version: 5.019006
plugins:
-
class: Dist::Zilla::Plugin::Git::NextVersion
name: '@Author::ETHER/Git::NextVersion'
version: 2.019
-
class: Dist::Zilla::Plugin::PromptIfStale
config:
Dist::Zilla::Plugin::PromptIfStale:
check_all_plugins: 0
check_all_prereqs: 0
modules:
- Dist::Zilla::PluginBundle::Author::ETHER
phase: build
skip: []
name: '@Author::ETHER/build'
version: 0.015
-
class: Dist::Zilla::Plugin::PromptIfStale
config:
Dist::Zilla::Plugin::PromptIfStale:
check_all_plugins: 1
check_all_prereqs: 1
modules: []
phase: release
skip: []
name: '@Author::ETHER/release'
version: 0.015
-
class: Dist::Zilla::Plugin::ExecDir
name: '@Author::ETHER/ExecDir'
version: 5.006
-
class: Dist::Zilla::Plugin::ShareDir
name: '@Author::ETHER/ShareDir'
version: 5.006
-
class: Dist::Zilla::Plugin::FileFinder::ByName
name: '@Author::ETHER/Examples'
version: 5.006
-
class: Dist::Zilla::Plugin::Git::GatherDir
name: '@Author::ETHER/Git::GatherDir'
version: 2.019
-
class: Dist::Zilla::Plugin::MetaYAML
name: '@Author::ETHER/MetaYAML'
version: 5.006
-
class: Dist::Zilla::Plugin::MetaJSON
name: '@Author::ETHER/MetaJSON'
version: 5.006
-
class: Dist::Zilla::Plugin::License
name: '@Author::ETHER/License'
version: 5.006
-
class: Dist::Zilla::Plugin::Readme
name: '@Author::ETHER/Readme'
version: 5.006
-
class: Dist::Zilla::Plugin::Manifest
name: '@Author::ETHER/Manifest'
version: 5.006
-
class: Dist::Zilla::Plugin::GenerateFile::ShareDir
config:
Dist::Zilla::Plugin::GenerateFile::ShareDir:
destination_filename: CONTRIBUTING
dist: Dist-Zilla-PluginBundle-Author-ETHER
encoding: UTF-8
source_filename: CONTRIBUTING
name: '@Author::ETHER/GenerateFile::ShareDir'
version: 0.003
-
class: Dist::Zilla::Plugin::Test::Compile
config:
Dist::Zilla::Plugin::Test::Compile:
filename: xt/author/00-compile.t
module_finder:
- ':InstallModules'
script_finder:
- ':ExecFiles'
- '@Author::ETHER/Examples'
name: '@Author::ETHER/Test::Compile'
version: 2.039
-
class: Dist::Zilla::Plugin::Test::NoTabs
config:
Dist::Zilla::Plugin::Test::NoTabs:
module_finder:
- ':InstallModules'
script_finder:
- ':ExecFiles'
- '@Author::ETHER/Examples'
name: '@Author::ETHER/Test::NoTabs'
version: 0.05
-
class: Dist::Zilla::Plugin::EOLTests
name: '@Author::ETHER/EOLTests'
version: 0.02
-
class: Dist::Zilla::Plugin::MetaTests
name: '@Author::ETHER/MetaTests'
version: 5.006
-
class: Dist::Zilla::Plugin::Test::Version
name: '@Author::ETHER/Test::Version'
version: 0.002004
-
class: Dist::Zilla::Plugin::Test::CPAN::Changes
name: '@Author::ETHER/Test::CPAN::Changes'
version: 0.008
-
class: Dist::Zilla::Plugin::Test::ChangesHasContent
name: '@Author::ETHER/Test::ChangesHasContent'
version: 0.006
-
class: Dist::Zilla::Plugin::Test::MinimumVersion
name: '@Author::ETHER/Test::MinimumVersion'
version: 2.000005
-
class: Dist::Zilla::Plugin::PodSyntaxTests
name: '@Author::ETHER/PodSyntaxTests'
version: 5.006
-
class: Dist::Zilla::Plugin::Test::Kwalitee
name: '@Author::ETHER/Test::Kwalitee'
version: 2.07
-
class: Dist::Zilla::Plugin::MojibakeTests
name: '@Author::ETHER/MojibakeTests'
version: 0.5
-
class: Dist::Zilla::Plugin::Test::ReportPrereqs
name: '@Author::ETHER/Test::ReportPrereqs'
version: 0.010
-
class: Dist::Zilla::Plugin::Test::Portability
name: '@Author::ETHER/Test::Portability'
version: 2.000005
-
class: Dist::Zilla::Plugin::PruneCruft
name: '@Author::ETHER/PruneCruft'
version: 5.006
-
class: Dist::Zilla::Plugin::ManifestSkip
name: '@Author::ETHER/ManifestSkip'
version: 5.006
-
class: Dist::Zilla::Plugin::Authority
name: '@Author::ETHER/Authority'
version: 1.006
-
class: Dist::Zilla::Plugin::Git::Describe
name: '@Author::ETHER/Git::Describe'
version: 0.003
-
class: Dist::Zilla::Plugin::PkgVersion
name: '@Author::ETHER/PkgVersion'
version: 5.006
-
class: Dist::Zilla::Plugin::PodWeaver
config:
Dist::Zilla::Plugin::PodWeaver:
finder:
- ':InstallModules'
- ':ExecFiles'
plugins:
-
class: Pod::Weaver::Plugin::EnsurePod5
name: '@CorePrep/EnsurePod5'
version: 4.004
-
class: Pod::Weaver::Plugin::H1Nester
name: '@CorePrep/H1Nester'
version: 4.004
-
class: Pod::Weaver::Plugin::SingleEncoding
name: '-SingleEncoding'
version: 4.004
-
class: Pod::Weaver::Section::Name
name: Name
version: 4.004
-
class: Pod::Weaver::Section::Region
name: prelude
version: 4.004
-
class: Pod::Weaver::Section::Generic
name: SYNOPSIS
version: 4.004
-
class: Pod::Weaver::Section::Generic
name: DESCRIPTION
version: 4.004
-
class: Pod::Weaver::Section::Generic
name: OVERVIEW
version: 4.004
-
class: Pod::Weaver::Section::Collect
name: ATTRIBUTES
version: 4.004
-
class: Pod::Weaver::Section::Collect
name: METHODS
version: 4.004
-
class: Pod::Weaver::Section::Collect
name: FUNCTIONS
version: 4.004
-
class: Pod::Weaver::Section::Collect
name: TYPES
version: 4.004
-
class: Pod::Weaver::Section::Leftovers
name: Leftovers
version: 4.004
-
class: Pod::Weaver::Section::Region
name: postlude
version: 4.004
-
class: Pod::Weaver::Section::Authors
name: Authors
version: 4.004
-
class: Pod::Weaver::Section::Contributors
name: Contributors
version: 0.007
-
class: Pod::Weaver::Section::Legal
name: Legal
version: 4.004
-
class: Pod::Weaver::Plugin::Transformer
name: '-Transformer'
version: 4.004
name: '@Author::ETHER/PodWeaver'
version: 4.002
-
class: Dist::Zilla::Plugin::NextRelease
name: '@Author::ETHER/NextRelease'
version: 5.006
-
class: Dist::Zilla::Plugin::ReadmeAnyFromPod
name: '@Author::ETHER/ReadmeAnyFromPod'
version: 0.133360
-
class: Dist::Zilla::Plugin::GithubMeta
name: '@Author::ETHER/GithubMeta'
version: 0.42
-
class: Dist::Zilla::Plugin::AutoMetaResources
name: '@Author::ETHER/AutoMetaResources'
version: 1.20
-
class: Dist::Zilla::Plugin::MetaNoIndex
name: '@Author::ETHER/MetaNoIndex'
version: 5.006
-
class: Dist::Zilla::Plugin::FinderCode
name: '@Author::ETHER/MetaProvides::Package/AUTOVIV/:InstallModulesPM'
version: 5.006
-
class: Dist::Zilla::Plugin::MetaProvides::Package
config:
Dist::Zilla::Plugin::MetaProvides::Package: {}
Dist::Zilla::Role::MetaProvider::Provider:
inherit_missing: 1
inherit_version: 1
meta_noindex: 1
name: '@Author::ETHER/MetaProvides::Package'
version: 1.15000001
-
class: Dist::Zilla::Plugin::MetaConfig
name: '@Author::ETHER/MetaConfig'
version: 5.006
-
class: Dist::Zilla::Plugin::AutoPrereqs
name: '@Author::ETHER/AutoPrereqs'
version: 5.006
-
class: Dist::Zilla::Plugin::Prereqs::AuthorDeps
name: '@Author::ETHER/Prereqs::AuthorDeps'
version: 0.002
-
class: Dist::Zilla::Plugin::MinimumPerl
name: '@Author::ETHER/MinimumPerl'
version: 1.003
-
class: Dist::Zilla::Plugin::Prereqs
config:
Dist::Zilla::Plugin::Prereqs:
phase: develop
type: requires
name: '@Author::ETHER/installer_requirements'
version: 5.006
-
class: Dist::Zilla::Plugin::Prereqs
config:
Dist::Zilla::Plugin::Prereqs:
phase: develop
type: recommends
name: '@Author::ETHER/pluginbundle_version'
version: 5.006
-
class: Dist::Zilla::Plugin::RunExtraTests
name: '@Author::ETHER/RunExtraTests'
version: 0.016
-
class: Dist::Zilla::Plugin::MakeMaker::Fallback
name: '@Author::ETHER/MakeMaker::Fallback'
version: 0.005
-
class: Dist::Zilla::Plugin::ModuleBuildTiny
name: '@Author::ETHER/ModuleBuildTiny'
version: 0.005
-
class: Dist::Zilla::Plugin::InstallGuide
name: '@Author::ETHER/InstallGuide'
version: 1.200002
-
class: Dist::Zilla::Plugin::CheckSelfDependency
name: '@Author::ETHER/CheckSelfDependency'
version: 0.006
-
class: Dist::Zilla::Plugin::Run::AfterBuild
name: '@Author::ETHER/Run::AfterBuild'
version: 0.020
-
class: Dist::Zilla::Plugin::Git::Check
name: '@Author::ETHER/initial check'
version: 2.019
-
class: Dist::Zilla::Plugin::Git::CheckFor::MergeConflicts
name: '@Author::ETHER/Git::CheckFor::MergeConflicts'
version: 0.008
-
class: Dist::Zilla::Plugin::Git::CheckFor::CorrectBranch
name: '@Author::ETHER/Git::CheckFor::CorrectBranch'
version: 0.008
-
class: Dist::Zilla::Plugin::Git::Remote::Check
name: '@Author::ETHER/Git::Remote::Check'
version: 0.1.2
-
class: Dist::Zilla::Plugin::CheckPrereqsIndexed
name: '@Author::ETHER/CheckPrereqsIndexed'
version: 0.009
-
class: Dist::Zilla::Plugin::TestRelease
name: '@Author::ETHER/TestRelease'
version: 5.006
-
class: Dist::Zilla::Plugin::Git::Check
name: '@Author::ETHER/after tests'
version: 2.019
-
class: Dist::Zilla::Plugin::UploadToCPAN
name: '@Author::ETHER/UploadToCPAN'
version: 5.006
-
class: Dist::Zilla::Plugin::CopyFilesFromRelease
name: '@Author::ETHER/CopyFilesFromRelease'
version: 0.001
-
class: Dist::Zilla::Plugin::Git::Commit
name: '@Author::ETHER/Git::Commit'
version: 2.019
-
class: Dist::Zilla::Plugin::Git::Tag
name: '@Author::ETHER/Git::Tag'
version: 2.019
-
class: Dist::Zilla::Plugin::GitHub::Update
name: '@Author::ETHER/GitHub::Update'
version: 0.36
-
class: Dist::Zilla::Plugin::Git::Push
name: '@Author::ETHER/Git::Push'
version: 2.019
-
class: Dist::Zilla::Plugin::InstallRelease
name: '@Author::ETHER/InstallRelease'
version: 0.008
-
class: Dist::Zilla::Plugin::ConfirmRelease
name: '@Author::ETHER/ConfirmRelease'
version: 5.006
-
class: Dist::Zilla::Plugin::Prereqs
config:
Dist::Zilla::Plugin::Prereqs:
phase: develop
type: requires
name: '@Author::ETHER/via_options'
version: 5.006
-
class: Dist::Zilla::Plugin::MetaResources
name: MetaResources
version: 5.006
-
class: Dist::Zilla::Plugin::Prereqs
config:
Dist::Zilla::Plugin::Prereqs:
phase: runtime
type: requires
name: Prereqs
version: 5.006
-
class: Dist::Zilla::Plugin::ContributorsFromGit
name: ContributorsFromGit
version: 0.006
-
class: Dist::Zilla::Plugin::FinderCode
name: ':InstallModules'
version: 5.006
-
class: Dist::Zilla::Plugin::FinderCode
name: ':IncModules'
version: 5.006
-
class: Dist::Zilla::Plugin::FinderCode
name: ':TestFiles'
version: 5.006
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ExecFiles'
version: 5.006
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ShareFiles'
version: 5.006
-
class: Dist::Zilla::Plugin::FinderCode
name: ':MainModule'
version: 5.006
zilla:
class: Dist::Zilla::Dist::Builder
config:
is_trial: 0
version: 5.006
x_authority: cpan:FLORA
x_contributors:
- 'Ash Berlin '
- 'Chas. J. Owens IV '
- 'Chris Prather '
- 'Dave Rolsky '
- 'Devin Austin '
- 'Hans Dieter Pearcey '
- 'Justin Hunter '
- 'Karen Etheridge '
- 'Matt Kraai '
- 'Michele Beltrame '
- 'Nelo Onyiah '
- 'Nick Perez '
- 'Piers Cawley '
- 'Rafael Kitover '
- "Robert 'phaylon' Sedlacek "
- 'Stevan Little '
- 'Tomas Doran '
- 'Yanick Champoux '
- 'leedo '
MooseX-Declare-0.38/README000644 000767 000024 00000000452 12253122762 015352 0ustar00etherstaff000000 000000
This archive contains the distribution MooseX-Declare,
version 0.38:
Declarative syntax for Moose
This software is copyright (c) 2008 by Florian Ragwitz.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
MooseX-Declare-0.38/README.md000644 000767 000024 00000021214 12253122762 015750 0ustar00etherstaff000000 000000 # NAME
MooseX::Declare - Declarative syntax for Moose
# SYNOPSIS
use MooseX::Declare;
class BankAccount {
has 'balance' => ( isa => 'Num', is => 'rw', default => 0 );
method deposit (Num $amount) {
$self->balance( $self->balance + $amount );
}
method withdraw (Num $amount) {
my $current_balance = $self->balance();
( $current_balance >= $amount )
|| confess "Account overdrawn";
$self->balance( $current_balance - $amount );
}
}
class CheckingAccount extends BankAccount {
has 'overdraft_account' => ( isa => 'BankAccount', is => 'rw' );
before withdraw (Num $amount) {
my $overdraft_amount = $amount - $self->balance();
if ( $self->overdraft_account && $overdraft_amount > 0 ) {
$self->overdraft_account->withdraw($overdraft_amount);
$self->deposit($overdraft_amount);
}
}
}
# DESCRIPTION
This module provides syntactic sugar for Moose, the postmodern object system
for Perl 5. When used, it sets up the `class` and `role` keywords.
__Note:__ Please see the ["WARNING"](#warning) section below!
# KEYWORDS
## class
class Foo { ... }
my $anon_class = class { ... };
Declares a new class. The class can be either named or anonymous, depending on
whether or not a classname is given. Within the class definition Moose and
[MooseX::Method::Signatures](https://metacpan.org/pod/MooseX::Method::Signatures) are set up automatically in addition to the other
keywords described in this document. At the end of the definition the class
will be made immutable. namespace::autoclean is injected to clean up Moose and
other imports for you.
Because of the way the options are parsed, you cannot have a class named "is",
"with" or "extends".
It's possible to specify options for classes:
- extends
class Foo extends Bar { ... }
Sets a superclass for the class being declared.
- with
class Foo with Role { ... }
class Foo with Role1 with Role2 { ... }
class Foo with (Role1, Role2) { ... }
Applies a role or roles to the class being declared.
- is mutable
class Foo is mutable { ... }
Causes the class not to be made immutable after its definition.
Options can also be provided for anonymous classes using the same syntax:
my $meta_class = class with Role;
## role
role Foo { ... }
my $anon_role = role { ... };
Declares a new role. The role can be either named or anonymous, depending on
whether or not a name is given. Within the role definition Moose::Role and
MooseX::Method::Signatures are set up automatically in addition to the other
keywords described in this document. Again, namespace::autoclean is injected to
clean up Moose::Role and other imports for you.
It's possible to specify options for roles:
- with
role Foo with Bar { ... }
Applies a role to the role being declared.
## before / after / around / override / augment
before foo ($x, $y, $z) { ... }
after bar ($x, $y, $z) { ... }
around baz ($x, $y, $z) { ... }
override moo ($x, $y, $z) { ... }
augment kuh ($x, $y, $z) { ... }
Add a method modifier. Those work like documented in [Moose](https://metacpan.org/pod/Moose), except for
the slightly nicer syntax and the method signatures, which work like documented
in [MooseX::Method::Signatures](https://metacpan.org/pod/MooseX::Method::Signatures).
For the `around` modifier an additional argument called `$orig` is
automatically set up as the invocant for the method.
## clean
Sometimes you don't want the automatic cleaning the `class` and `role`
keywords provide using namespace::autoclean. In those cases you can specify the
`dirty` trait for your class or role:
use MooseX::Declare;
class Foo is dirty { ... }
This will prevent cleaning of your namespace, except for the keywords imported
from `Moose` or `Moose::Role`. Additionally, a `clean` keyword is provided,
which allows you to explicitly clean all functions that were defined prior to
calling `clean`. Here's an example:
use MooseX::Declare;
class Foo is dirty {
sub helper_function { ... }
clean;
method foo ($stuff) { ...; return helper_function($stuff); }
}
With that, the helper function won't be available as a method to a user of your
class, but you're still able to use it inside your class.
# NOTE ON IMPORTS
When creating a class with MooseX::Declare like:
use MooseX::Declare;
class Foo { ... }
What actually happens is something like this:
{
package Foo;
use Moose;
use namespace::autoclean;
...
__PACKAGE__->meta->make_immutable;
}
So if you declare imports outside the class, the symbols get imported into the
`main::` namespace, not the class' namespace. The symbols then cannot be called
from within the class:
use MooseX::Declare;
use Data::Dump qw/dump/;
class Foo {
method dump($value) { return dump($value) } # Data::Dump::dump IS NOT in Foo::
method pp($value) { $self->dump($value) } # an alias for our dump method
}
To solve this, only import MooseX::Declare outside the class definition
(because you have to). Make all other imports inside the class definition.
use MooseX::Declare;
class Foo {
use Data::Dump qw/dump/;
method dump($value) { return dump($value) } # Data::Dump::dump IS in Foo::
method pp($value) { $self->dump($value) } # an alias for our dump method
}
Foo->new->dump($some_value);
Foo->new->pp($some_value);
__NOTE__ that the import `Data::Dump::dump()` and the method `Foo::dump()`,
although having the same name, do not conflict with each other, because the
imported `dump` function will be cleaned during compile time, so only the
method remains there at run time. If you want to do more esoteric things with
imports, have a look at the `clean` keyword and the `dirty` trait.
# WARNING
__Warning:__ MooseX::Declare is based on [Devel::Declare](https://metacpan.org/pod/Devel::Declare), a giant bag of crack
originally implemented by mst with the goal of upsetting the perl core
developers so much by its very existence that they implemented proper
keyword handling in the core.
As of perl5 version 14, this goal has been achieved, and modules such
as [Devel::CallParser](https://metacpan.org/pod/Devel::CallParser), [Function::Parameters](https://metacpan.org/pod/Function::Parameters), and [Keyword::Simple](https://metacpan.org/pod/Keyword::Simple) provide
mechanisms to mangle perl syntax that don't require hallucinogenic
drugs to interpret the error messages they produce.
If you want to use declarative syntax in new code, please for the love
of kittens get yourself a recent perl and look at [Moops](https://metacpan.org/pod/Moops) instead.
# SEE ALSO
- [Moose](https://metacpan.org/pod/Moose)
- [Moose::Role](https://metacpan.org/pod/Moose::Role)
- [MooseX::Method::Signatures](https://metacpan.org/pod/MooseX::Method::Signatures)
- [namespace::autoclean](https://metacpan.org/pod/namespace::autoclean)
- vim syntax: [http://www.vim.org/scripts/script.php?script_id=2526](http://www.vim.org/scripts/script.php?script_id=2526)
- emacs syntax: [http://github.com/jrockway/cperl-mode](http://github.com/jrockway/cperl-mode)
- Geany syntax + notes: [http://www.cattlegrid.info/blog/2009/09/moosex-declare-geany-syntax.html](http://www.cattlegrid.info/blog/2009/09/moosex-declare-geany-syntax.html)
- [Devel::CallParser](https://metacpan.org/pod/Devel::CallParser)
- [Function::Parameters](https://metacpan.org/pod/Function::Parameters)
- [Keyword::Simple](https://metacpan.org/pod/Keyword::Simple)
- [Moops](https://metacpan.org/pod/Moops)
# AUTHOR
Florian Ragwitz
# CONTRIBUTORS
- Ash Berlin
- Chas. J. Owens IV
- Chris Prather
- Dave Rolsky
- Devin Austin
- Hans Dieter Pearcey
- Justin Hunter
- Karen Etheridge
- Matt Kraai
- Michele Beltrame
- Nelo Onyiah
- Nick Perez
- Piers Cawley
- Rafael Kitover
- Robert 'phaylon' Sedlacek
- Stevan Little
- Tomas Doran
- Yanick Champoux
- leedo
# COPYRIGHT AND LICENSE
This software is copyright (c) 2008 by Florian Ragwitz.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
MooseX-Declare-0.38/t/000755 000767 000024 00000000000 12253122762 014734 5ustar00etherstaff000000 000000 MooseX-Declare-0.38/TODO000644 000767 000024 00000000554 12253122762 015165 0ustar00etherstaff000000 000000 * Implement class Foo;
* Implemet subclass { ... }, meaning class Foo extends OuterClass { ... } for
nested classes.
* Allow $class = extends Foo { ... }; and $class = with Role { ... }; for
creating anonymous classes. Not only $class = class extends Foo { .. };
doesn't read very well, it's also hard to distinguish from creating a class
called 'extends'
MooseX-Declare-0.38/weaver.ini000644 000767 000024 00000000573 12253122762 016470 0ustar00etherstaff000000 000000 [@CorePrep]
[-SingleEncoding]
[Name]
[Region / prelude]
[Generic / SYNOPSIS]
[Generic / DESCRIPTION]
[Generic / OVERVIEW]
[Collect / ATTRIBUTES]
command = attr
[Collect / METHODS]
command = method
[Collect / FUNCTIONS]
command = func
[Collect / TYPES]
command = type
[Leftovers]
[Region / postlude]
[Authors]
[Contributors]
[Legal]
[-Transformer]
transformer = List
MooseX-Declare-0.38/xt/000755 000767 000024 00000000000 12253122762 015124 5ustar00etherstaff000000 000000 MooseX-Declare-0.38/xt/author/000755 000767 000024 00000000000 12253122762 016426 5ustar00etherstaff000000 000000 MooseX-Declare-0.38/xt/release/000755 000767 000024 00000000000 12253122762 016544 5ustar00etherstaff000000 000000 MooseX-Declare-0.38/xt/release/changes_has_content.t000644 000767 000024 00000002010 12253122762 022717 0ustar00etherstaff000000 000000 #!perl
use Test::More tests => 2;
note 'Checking Changes';
my $changes_file = 'Changes';
my $newver = '0.38';
my $trial_token = '-TRIAL';
SKIP: {
ok(-e $changes_file, "$changes_file file exists")
or skip 'Changes is missing', 1;
ok(_get_changes($newver), "$changes_file has content for $newver");
}
done_testing;
# _get_changes copied and adapted from Dist::Zilla::Plugin::Git::Commit
# by Jerome Quelin
sub _get_changes
{
my $newver = shift;
# parse changelog to find commit message
open(my $fh, '<', $changes_file) or die "cannot open $changes_file: $!";
my $changelog = join('', <$fh>);
close $fh;
my @content =
grep { /^$newver(?:$trial_token)?(?:\s+|$)/ ... /^\S/ } # from newver to un-indented
split /\n/, $changelog;
shift @content; # drop the version line
# drop unindented last line and trailing blank lines
pop @content while ( @content && $content[-1] =~ /^(?:\S|\s*$)/ );
# return number of non-blank lines
return scalar @content;
}
MooseX-Declare-0.38/xt/release/cpan-changes.t000644 000767 000024 00000000263 12253122762 021261 0ustar00etherstaff000000 000000 #!perl
use strict;
use warnings;
use Test::More 0.96 tests => 2;
use_ok('Test::CPAN::Changes');
subtest 'changes_ok' => sub {
changes_file_ok('Changes');
};
done_testing();
MooseX-Declare-0.38/xt/release/distmeta.t000644 000767 000024 00000000217 12253122762 020543 0ustar00etherstaff000000 000000 #!perl
use Test::More;
eval "use Test::CPAN::Meta";
plan skip_all => "Test::CPAN::Meta required for testing META.yml" if $@;
meta_yaml_ok();
MooseX-Declare-0.38/xt/release/eol.t000644 000767 000024 00000000240 12253122762 017504 0ustar00etherstaff000000 000000 use strict;
use warnings;
use Test::More;
eval 'use Test::EOL';
plan skip_all => 'Test::EOL required' if $@;
all_perl_files_ok({ trailing_whitespace => 1 });
MooseX-Declare-0.38/xt/release/kwalitee.t000644 000767 000024 00000000166 12253122762 020541 0ustar00etherstaff000000 000000 # this test was generated with Dist::Zilla::Plugin::Test::Kwalitee 2.07
use strict;
use warnings;
use Test::Kwalitee;
MooseX-Declare-0.38/xt/release/minimum-version.t000644 000767 000024 00000000271 12253122762 022067 0ustar00etherstaff000000 000000 #!perl
use Test::More;
eval "use Test::MinimumVersion";
plan skip_all => "Test::MinimumVersion required for testing minimum versions"
if $@;
all_minimum_version_ok( qq{5.008008} );
MooseX-Declare-0.38/xt/release/mojibake.t000644 000767 000024 00000000406 12253122762 020512 0ustar00etherstaff000000 000000 #!perl
use strict;
use warnings qw(all);
use Test::More;
## no critic (ProhibitStringyEval, RequireCheckingReturnValueOfEval)
eval q(use Test::Mojibake);
plan skip_all => q(Test::Mojibake required for source encoding testing) if $@;
all_files_encoding_ok();
MooseX-Declare-0.38/xt/release/no-tabs.t000644 000767 000024 00000002550 12253122762 020276 0ustar00etherstaff000000 000000 use strict;
use warnings;
# this test was generated with Dist::Zilla::Plugin::Test::NoTabs 0.05
use Test::More 0.88;
use Test::NoTabs;
my @files = (
'lib/MooseX/Declare.pm',
'lib/MooseX/Declare/Context.pm',
'lib/MooseX/Declare/Context/Namespaced.pm',
'lib/MooseX/Declare/Context/Parameterized.pm',
'lib/MooseX/Declare/Context/WithOptions.pm',
'lib/MooseX/Declare/StackItem.pm',
'lib/MooseX/Declare/Syntax/EmptyBlockIfMissing.pm',
'lib/MooseX/Declare/Syntax/Extending.pm',
'lib/MooseX/Declare/Syntax/InnerSyntaxHandling.pm',
'lib/MooseX/Declare/Syntax/Keyword/Class.pm',
'lib/MooseX/Declare/Syntax/Keyword/Clean.pm',
'lib/MooseX/Declare/Syntax/Keyword/Method.pm',
'lib/MooseX/Declare/Syntax/Keyword/MethodModifier.pm',
'lib/MooseX/Declare/Syntax/Keyword/Namespace.pm',
'lib/MooseX/Declare/Syntax/Keyword/Role.pm',
'lib/MooseX/Declare/Syntax/Keyword/With.pm',
'lib/MooseX/Declare/Syntax/KeywordHandling.pm',
'lib/MooseX/Declare/Syntax/MethodDeclaration.pm',
'lib/MooseX/Declare/Syntax/MethodDeclaration/Parameterized.pm',
'lib/MooseX/Declare/Syntax/MooseSetup.pm',
'lib/MooseX/Declare/Syntax/NamespaceHandling.pm',
'lib/MooseX/Declare/Syntax/OptionHandling.pm',
'lib/MooseX/Declare/Syntax/RoleApplication.pm',
'lib/MooseX/Declare/Util.pm'
);
notabs_ok($_) foreach @files;
done_testing;
MooseX-Declare-0.38/xt/release/pod-syntax.t000644 000767 000024 00000000212 12253122762 021032 0ustar00etherstaff000000 000000 #!perl
use Test::More;
eval "use Test::Pod 1.41";
plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
all_pod_files_ok();
MooseX-Declare-0.38/xt/release/portability.t000644 000767 000024 00000000276 12253122762 021300 0ustar00etherstaff000000 000000 #!perl
use strict;
use warnings;
use Test::More;
eval 'use Test::Portability::Files';
plan skip_all => 'Test::Portability::Files required for testing portability'
if $@;
run_tests();
MooseX-Declare-0.38/xt/release/test-version.t000644 000767 000024 00000000643 12253122762 021376 0ustar00etherstaff000000 000000 use strict;
use warnings;
use Test::More;
# generated by Dist::Zilla::Plugin::Test::Version 0.002004
BEGIN { eval "use Test::Version; 1;" or die $@; }
my @imports = ( 'version_all_ok' );
my $params = {
is_strict => 1,
has_version => 1,
};
push @imports, $params
if version->parse( $Test::Version::VERSION ) >= version->parse('1.002');
Test::Version->import(@imports);
version_all_ok;
done_testing;
MooseX-Declare-0.38/xt/author/00-compile.t000644 000767 000024 00000004105 12253122762 020460 0ustar00etherstaff000000 000000 use 5.006;
use strict;
use warnings;
# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.039
use Test::More 0.94 tests => 24 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
my @module_files = (
'MooseX/Declare.pm',
'MooseX/Declare/Context.pm',
'MooseX/Declare/Context/Namespaced.pm',
'MooseX/Declare/Context/Parameterized.pm',
'MooseX/Declare/Context/WithOptions.pm',
'MooseX/Declare/StackItem.pm',
'MooseX/Declare/Syntax/EmptyBlockIfMissing.pm',
'MooseX/Declare/Syntax/Extending.pm',
'MooseX/Declare/Syntax/InnerSyntaxHandling.pm',
'MooseX/Declare/Syntax/Keyword/Class.pm',
'MooseX/Declare/Syntax/Keyword/Clean.pm',
'MooseX/Declare/Syntax/Keyword/Method.pm',
'MooseX/Declare/Syntax/Keyword/MethodModifier.pm',
'MooseX/Declare/Syntax/Keyword/Namespace.pm',
'MooseX/Declare/Syntax/Keyword/Role.pm',
'MooseX/Declare/Syntax/Keyword/With.pm',
'MooseX/Declare/Syntax/KeywordHandling.pm',
'MooseX/Declare/Syntax/MethodDeclaration.pm',
'MooseX/Declare/Syntax/MethodDeclaration/Parameterized.pm',
'MooseX/Declare/Syntax/MooseSetup.pm',
'MooseX/Declare/Syntax/NamespaceHandling.pm',
'MooseX/Declare/Syntax/OptionHandling.pm',
'MooseX/Declare/Syntax/RoleApplication.pm',
'MooseX/Declare/Util.pm'
);
# no fake home requested
my $inc_switch = -d 'blib' ? '-Mblib' : '-Ilib';
use File::Spec;
use IPC::Open3;
use IO::Handle;
open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
my @warnings;
for my $lib (@module_files)
{
# see L
my $stderr = IO::Handle->new;
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q[$lib]");
binmode $stderr, ':crlf' if $^O eq 'MSWin32';
my @_warnings = <$stderr>;
waitpid($pid, 0);
is($?, 0, "$lib loaded ok");
if (@_warnings)
{
warn @_warnings;
push @warnings, @_warnings;
}
}
is(scalar(@warnings), 0, 'no warnings found') if $ENV{AUTHOR_TESTING};
BAIL_OUT("Compilation problems") if !Test::More->builder->is_passing;
MooseX-Declare-0.38/t/00-report-prereqs.t000644 000767 000024 00000007715 12253122762 020342 0ustar00etherstaff000000 000000 #!perl
use strict;
use warnings;
# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.010
use Test::More tests => 1;
use ExtUtils::MakeMaker;
use File::Spec::Functions;
use List::Util qw/max/;
my @modules = qw(
CPAN::Meta
CPAN::Meta::Requirements
Carp
Devel::Declare
Devel::Declare::Context::Simple
ExtUtils::MakeMaker
File::Spec::Functions
List::MoreUtils
List::Util
Module::Build::Tiny
Module::Runtime
Moose
Moose::Meta::Class
Moose::Role
Moose::Util
Moose::Util::TypeConstraints
MooseX::Method::Signatures
MooseX::Method::Signatures::Meta::Method
MooseX::Method::Signatures::Types
MooseX::Role::Parameterized
MooseX::Types::Moose
MooseX::Types::Structured
Parse::Method::Signatures
Parse::Method::Signatures::Param::Placeholder
Sub::Exporter
Sub::Install
Test::Fatal
Test::Moose
Test::More
aliased
constant
if
lib
namespace::autoclean
namespace::clean
overload
perl
strict
warnings
);
my %exclude = map {; $_ => 1 } qw(
);
my ($source) = grep { -f $_ } qw/MYMETA.json MYMETA.yml META.json/;
$source = "META.yml" unless defined $source;
# replace modules with dynamic results from MYMETA.json if we can
# (hide CPAN::Meta from prereq scanner)
my $cpan_meta = "CPAN::Meta";
my $cpan_meta_req = "CPAN::Meta::Requirements";
my $all_requires;
if ( -f $source && eval "require $cpan_meta" ) { ## no critic
if ( my $meta = eval { CPAN::Meta->load_file($source) } ) {
# Get ALL modules mentioned in META (any phase/type)
my $prereqs = $meta->prereqs;
delete $prereqs->{develop} if not $ENV{AUTHOR_TESTING};
my %uniq = map {$_ => 1} map { keys %$_ } map { values %$_ } values %$prereqs;
$uniq{$_} = 1 for @modules; # don't lose any static ones
@modules = sort grep { ! $exclude{$_} } keys %uniq;
# If verifying, merge 'requires' only for major phases
if ( 1 ) {
$prereqs = $meta->effective_prereqs; # get the object, not the hash
if (eval "require $cpan_meta_req; 1") { ## no critic
$all_requires = $cpan_meta_req->new;
for my $phase ( qw/configure build test runtime/ ) {
$all_requires->add_requirements(
$prereqs->requirements_for($phase, 'requires')
);
}
}
}
}
}
my @reports = [qw/Version Module/];
my @dep_errors;
my $req_hash = defined($all_requires) ? $all_requires->as_string_hash : {};
for my $mod ( @modules ) {
next if $mod eq 'perl';
my $file = $mod;
$file =~ s{::}{/}g;
$file .= ".pm";
my ($prefix) = grep { -e catfile($_, $file) } @INC;
if ( $prefix ) {
my $ver = MM->parse_version( catfile($prefix, $file) );
$ver = "undef" unless defined $ver; # Newer MM should do this anyway
push @reports, [$ver, $mod];
if ( 1 && $all_requires ) {
my $req = $req_hash->{$mod};
if ( defined $req && length $req ) {
if ( ! defined eval { version->parse($ver) } ) {
push @dep_errors, "$mod version '$ver' cannot be parsed (version '$req' required)";
}
elsif ( ! $all_requires->accepts_module( $mod => $ver ) ) {
push @dep_errors, "$mod version '$ver' is not in required range '$req'";
}
}
}
}
else {
push @reports, ["missing", $mod];
if ( 1 && $all_requires ) {
my $req = $req_hash->{$mod};
if ( defined $req && length $req ) {
push @dep_errors, "$mod is not installed (version '$req' required)";
}
}
}
}
if ( @reports ) {
my $vl = max map { length $_->[0] } @reports;
my $ml = max map { length $_->[1] } @reports;
splice @reports, 1, 0, ["-" x $vl, "-" x $ml];
diag "\nVersions for all modules listed in $source (including optional ones):\n",
map {sprintf(" %*s %*s\n",$vl,$_->[0],-$ml,$_->[1])} @reports;
}
if ( @dep_errors ) {
diag join("\n",
"\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n",
"The following REQUIRED prerequisites were not satisfied:\n",
@dep_errors,
"\n"
);
}
pass;
# vim: ts=2 sts=2 sw=2 et:
MooseX-Declare-0.38/t/anon.t000644 000767 000024 00000001275 12253122762 016061 0ustar00etherstaff000000 000000 use strict;
use warnings;
use Test::More;;
use Test::Moose;
use MooseX::Declare;
role Rollo { }
my $meta_class = class {
has 'foo' => (
is => 'ro',
isa => 'Str',
);
};
isa_ok($meta_class, 'Moose::Meta::Class');
my $class = $meta_class->name;
meta_ok($class);
can_ok($class, 'new');
has_attribute_ok($class, 'foo');
ok(!__PACKAGE__->can('augment'));
my $meta_class_2 = class with Rollo;
isa_ok($meta_class_2, 'Moose::Meta::Class');
ok($meta_class_2->is_immutable);
$class = $meta_class_2->name;
meta_ok($class);
can_ok($class, 'new');
does_ok($class, 'Rollo');
my $meta_class_3 = class();
isa_ok($meta_class_3, 'Moose::Meta::Class', 'class() works');
done_testing;
MooseX-Declare-0.38/t/attribute_issues.t000644 000767 000024 00000001516 12253122762 020522 0ustar00etherstaff000000 000000 use strict;
use warnings;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use Test::Fatal;
use MooseX::Declare;
class UnderTest {
method pass_through (:$param?) {
$param;
}
method pass_through2 (:name($value)?) {
$value;
}
method pass_through3 ($value?) {
$value || 'default';
}
}
is(UnderTest->new->pass_through(param => "send reinforcements, we're going to advance")
=> "send reinforcements, we're going to advance",
"send three and fourpence, we're going to a dance");
is( exception {
is(UnderTest->new->pass_through2(name => "foo")
=> "foo",
"should be 'foo'");
}, undef, 'name => $value');
is( exception {
is(UnderTest->new->pass_through3()
=> "default",
"should be 'default'");
}, undef, 'optional param');
done_testing;
MooseX-Declare-0.38/t/autoclean.t000644 000767 000024 00000002572 12253122762 017102 0ustar00etherstaff000000 000000 use MooseX::Declare;
use Test::More tests => 9;
class Foo {
use Carp 'croak';
}
class Bar is dirty {
use Carp 'croak';
}
class Baz is clean {
use Carp 'croak';
}
my $clean_has_warned;
BEGIN {
$SIG{__WARN__} = sub {
my ($message) = @_;
if ($message =~ /Attempted to clean an already cleaned namespace/i) {
$clean_has_warned = $message;
return;
}
warn $message;
};
}
class Qux {
use Carp 'croak';
clean;
}
my $clean_has_not_warned;
BEGIN {
$clean_has_not_warned = 1;
$SIG{__WARN__} = sub {
my ($message) = @_;
if ($message =~ /Attempted to clean an already cleaned namespace/i) {
$clean_has_warned = 0;
return;
}
warn $message;
};
}
class Quux is dirty {
use Carp 'croak';
clean;
}
undef $SIG{__WARN__};
ok(!Foo->can('croak'), '... Foo is clean');
ok( Bar->can('croak'), '... Bar is dirty');
ok(!Baz->can('croak'), '... Baz is clean');
ok(!Qux->can('croak'), '... Qux is clean');
ok($clean_has_warned, 'Qux usage of clean and autoclean leads to warning');
like($clean_has_warned, qr/is dirty/, 'warning contains "is dirty" hint');
like($clean_has_warned, qr/Qux/, 'warning contains Qux namespace');
ok(!Quux->can('croak'), '... Quux is clean');
ok($clean_has_not_warned, 'Quux usage of clean in a dirty class leads to no warning');
MooseX-Declare-0.38/t/basic.t000644 000767 000024 00000002042 12253122762 016200 0ustar00etherstaff000000 000000 use strict;
use warnings;
use Test::More 0.89;
use Test::Moose;
use Test::Fatal;
use lib 't/lib';
BEGIN { use_ok('Foo'); }
{
my $pkg = 'Foo';
meta_ok($pkg);
has_attribute_ok($pkg, 'affe');
can_ok($pkg, $_)
for qw/affe foo inner/;
ok(!$pkg->can($_))
for qw/has method override/;
ok($pkg->meta->is_immutable);
my $o = $pkg->new;
is($o->foo(42), 42);
is($o->inner, 23);
}
{
my $pkg = 'Foo::Bar';
meta_ok($pkg);
can_ok($pkg, 'bar');
ok(!$pkg->meta->is_immutable);
is( exception {
$pkg->new->bar;
}, undef);
}
{
my $pkg = 'Role';
meta_ok($pkg);
isa_ok($pkg->meta, 'Moose::Meta::Role');
can_ok($pkg, 'role_method');
}
{
my $pkg = 'Moo::Kooh';
ok($pkg->isa('Foo'));
can_ok($pkg, 'kooh');
does_ok($pkg, 'Role');
my $o = $pkg->new;
is($o->foo(42), 43);
is($o->bar(23), 'outer(23)-inner(23)');
}
{
my $quux = Quux->new;
is( exception { $quux->quux }, undef);
is( exception { $quux->quux(42) }, undef);
}
done_testing;
MooseX-Declare-0.38/t/clean.t000644 000767 000024 00000000733 12253122762 016206 0ustar00etherstaff000000 000000 use MooseX::Declare;
use Test::More tests => 4;
use Test::Fatal;
class Foo is dirty {
use Carp qw/croak/;
use MooseX::Types::Moose qw/Str/;
use MooseX::Types::Structured qw/Tuple/;
clean;
method fail ($class:) { croak 'korv' }
method Tuple ($class:) { return Tuple[Str, Str] }
}
ok(!Foo->can('croak'));
ok( Foo->can('Tuple'));
is(Foo->Tuple->name, 'MooseX::Types::Structured::Tuple[Str,Str]');
like( exception {
Foo->fail;
}, qr/\bkorv\b/);
MooseX-Declare-0.38/t/import.t000644 000767 000024 00000000155 12253122762 016434 0ustar00etherstaff000000 000000 use Test::More tests => 1;
use MooseX::Declare;
eval '$foo = 42';
ok($@, 'MooseX::Declare imports strict');
MooseX-Declare-0.38/t/inner_keywords.t000644 000767 000024 00000000331 12253122762 020160 0ustar00etherstaff000000 000000 use Test::More tests => 6;
use MooseX::Declare;
for my $inner (qw( method around before after augment override )) {
eval $inner . ' foo ($bar) { }';
ok($@, "$inner keyword not set up outside of classes");
}
MooseX-Declare-0.38/t/lib/000755 000767 000024 00000000000 12253122762 015502 5ustar00etherstaff000000 000000 MooseX-Declare-0.38/t/manual_namespace.t000644 000767 000024 00000001316 12253122762 020413 0ustar00etherstaff000000 000000 #!/usr/bin/env perl
use strict;
use warnings;
use MooseX::Declare;
use Test::More tests => 5;
namespace Foo::Bar;
sub base { __PACKAGE__ }
class ::Baz {
sub TestPackage::baz { __PACKAGE__ }
}
role ::Fnording {
sub TestPackage::fnord { __PACKAGE__ }
}
class ::Qux extends ::Baz with ::Fnording {
sub TestPackage::qux { __PACKAGE__ }
}
is( base(), 'main', 'namespace does not affect package' );
is( TestPackage->baz, 'Foo::Bar::Baz', 'relative namespace works' );
is( TestPackage->qux, 'Foo::Bar::Qux', 'relative superclass works' );
is( TestPackage->fnord, 'Foo::Bar::Fnording', 'relative namespace works in role' );
ok( Foo::Bar::Qux->does('Foo::Bar::Fnording'), 'relative role namespaces work' );
MooseX-Declare-0.38/t/meta_should_be_signature.t000644 000767 000024 00000000335 12253122762 022155 0ustar00etherstaff000000 000000 use Test::More tests => 1;
use MooseX::Declare;
class Foo {
method blat (Str $str) { }
}
my $foo = Foo->new();
my $blat = $foo->meta->get_method('blat');
isa_ok($blat, 'MooseX::Method::Signatures::Meta::Method');
MooseX-Declare-0.38/t/method_as_default.t000644 000767 000024 00000000275 12253122762 020574 0ustar00etherstaff000000 000000 use Test::More;
use MooseX::Declare;
class Foo {
has bar => (
is => 'ro',
default => method { ref $self },
);
}
is(Foo->new->bar,'Foo','yay');
done_testing;
MooseX-Declare-0.38/t/modifier_order.t000644 000767 000024 00000001322 12253122762 020110 0ustar00etherstaff000000 000000 use MooseX::Declare;
use Test::More;
namespace Foo;
role ::Z {
method foo (Int $x) { $x }
}
role ::C {
with '::Z';
around foo (Int $x) { $self->$orig(int($x / 3)) }
}
role ::B {
with '::C';
around foo (Int $x) { $self->$orig($x + 2) }
}
role ::A {
with '::B';
around foo (Int $x) { $self->$orig($x * 2) }
}
class TEST {
with '::A';
around foo (Int $x) { $self->$orig($x + 2) }
}
is(TEST->new()->foo(12), 10, 'Method modifier and roles ordering');
class AnotherTest {
with '::Z';
around foo (Int $x) { $self->$orig($x * 2) }
}
is(AnotherTest->new->foo(21), 42,
'modifiers also work when applying directly to an actual method compose from a role');
done_testing;
1;
MooseX-Declare-0.38/t/modifiers.t000644 000767 000024 00000000550 12253122762 017102 0ustar00etherstaff000000 000000 use Test::More;
use MooseX::Declare;
my @log = ();
BEGIN { $SIG{__WARN__} = sub { push @log, \@_ } };
role Bar {
before do_foo {
push @log, { before => 'string' };
}
}
class Foo with Bar {
method do_foo {
push @log, { class => 'string' };
}
}
Foo->new->do_foo;
is_deeply(\@log, [{'before', 'string'}, {'class','string'}] );
done_testing;
MooseX-Declare-0.38/t/modify_with_invocant.t000644 000767 000024 00000000434 12253122762 021345 0ustar00etherstaff000000 000000 use Test::More;
use MooseX::Declare;
class Foo {
method foo (Foo $foo: Int $x) {
$x - 5;
}
}
class Bar extends Foo {
around foo (Bar $bar: Int $x) {
$orig->($bar, $x * 2);
}
}
is(Bar->new->foo(10), 15, 'Test advice on class method');
done_testing;
MooseX-Declare-0.38/t/nested_anonymous_classes.t000644 000767 000024 00000001532 12253122762 022231 0ustar00etherstaff000000 000000 use strict;
use warnings;
use Test::More tests => 2;
use Test::Fatal;
use MooseX::Declare;
my $stuff = <<'CLASS';
use MooseX::Declare;
role Bar
{
sub baz { print "Bar::baz called\n"; }
}
class Foo with Bar
{
sub anon
{
my $class2 = class with Bar { sub yarp { print "anon yarp called\n" } };
}
}
CLASS
is( exception {
eval $stuff;
die $@ if $@;
}, undef, 'Compiled nested anonymous composed class successfully');
my $stuff2 = <<'CLASS2';
use MooseX::Declare;
class Baz
{
sub foo
{
class Gorch
{
sub blat { print "blat\n"; }
}
my $named = Gorch->new();
$named->blat();
}
}
my $baz = Baz->new();
$baz->foo();
CLASS2
is( exception {
eval $stuff2;
die $@ if $@;
}, undef, 'Nested named declaration and execution outside of declaration scope works');
MooseX-Declare-0.38/t/nesting.t000644 000767 000024 00000000321 12253122762 016564 0ustar00etherstaff000000 000000 use strict;
use warnings;
use Test::More tests => 1;
use Test::Moose;
use lib 't/lib';
use Affe;
meta_ok('Tiger', "namespaces aren't nested, although Tiger is loaded from within the Affe class definition");
MooseX-Declare-0.38/t/optional_positional.t000644 000767 000024 00000001024 12253122762 021204 0ustar00etherstaff000000 000000 use strict;
use warnings;
use Test::More tests => 3;
use Test::Fatal;
use MooseX::Declare;
class ValueHolder {
has value => (
is => 'rw',
isa => 'Any',
);
around value ($newval?) {
$orig->($newval);
}
method method1 ($argument?) {
+@_;
}
}
is( exception {
ValueHolder->new(value => 22)->value;
}, undef, 'value() should not die');
is( exception {
is(ValueHolder->new->method1, 1, 'method1() should only get 1 element in @_');
}, undef, 'nor should method1()');
MooseX-Declare-0.38/t/override_attribute_from_role.t000644 000767 000024 00000000501 12253122762 023063 0ustar00etherstaff000000 000000 use Test::More tests => 1;
use Test::Fatal;
use MooseX::Declare;
role ProvidesFooAttribute {
has foo => ( is => 'ro' );
}
is( exception {
class Consumer {
with 'ProvidesFooAttribute';
has '+foo' => ( isa => 'Int' );
}
}, undef, 'Delayed role application does not play nice with has +foo');
MooseX-Declare-0.38/t/recipes/000755 000767 000024 00000000000 12253122762 016366 5ustar00etherstaff000000 000000 MooseX-Declare-0.38/t/role_application.t000644 000767 000024 00000001426 12253122762 020450 0ustar00etherstaff000000 000000 #!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 5;
use MooseX::Declare;
role Fooable { has foo => (is => 'ro', default => 1) }
role Barable { has bar => (is => 'ro', default => 1) }
class FooBar1 with (Fooable, Barable) {}
my $foobar1 = FooBar1->new;
is $foobar1->foo, 1;
is $foobar1->bar, 1;
class FooBar2 with Fooable with Barable {}
my $foobar2 = FooBar2->new;
is $foobar2->foo, 1;
is $foobar2->bar, 1;
TODO: {
local $TODO = 'we need better error messages on parse fail';
#error message should refer to this file, not an internal file
#NOTE: string eval is needed because this happens at compile time
eval "class FooBar with Fooable, Barable {}";
like $@, qr/999_misc[.]t/;
}
#FIXME: decide on a good error message and check for it here
MooseX-Declare-0.38/t/role_parameterized.t000644 000767 000024 00000001111 12253122762 020770 0ustar00etherstaff000000 000000 use strict;
use warnings;
use Test::More;
use lib 't/lib';
use ParameterizedRole;
can_ok('MyGame::Weapon', 'increment_enchantment');
can_ok('MyGame::Weapon', 'reset_enchantment');
is(MyGame::Weapon->new->enchantment, 5, 'Provided default for enchantment');
can_ok('MyGame::Wand', 'increment_zapped');
can_ok('MyGame::Wand', 'reset_zapped');
is(MyGame::Wand->new->zapped, 3, 'Provided default for zapped');
can_ok('MyGame::Scroll', 'increment_spelled');
can_ok('MyGame::Scroll', 'reset_spelled');
is(MyGame::Scroll->new->spelled, 1, 'Provided default for spelled');
done_testing;
MooseX-Declare-0.38/t/segfault_syntax_error.t000644 000767 000024 00000000513 12253122762 021551 0ustar00etherstaff000000 000000 use strict;
use warnings;
use Test::More;
BEGIN {
plan skip_all => '5.10.1 required for this test, due to a perl bug'
if $] < 5.010001;
}
use MooseX::Declare;
eval q[
class BreakingClass {
method causes_bus_error {
delete my $foo;
}
}
];
pass('should not crash');
done_testing;
MooseX-Declare-0.38/t/recipes/basics/000755 000767 000024 00000000000 12253122762 017632 5ustar00etherstaff000000 000000 MooseX-Declare-0.38/t/recipes/basics/001_point.t000644 000767 000024 00000011457 12253122762 021540 0ustar00etherstaff000000 000000 #!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 59;
use Test::Fatal;
use MooseX::Declare;
class Point {
has 'x' => (isa => 'Int', is => 'rw', required => 1);
has 'y' => (isa => 'Int', is => 'rw', required => 1);
method clear {
$self->x(0);
$self->y(0);
}
}
class Point3D extends Point {
has 'z' => (isa => 'Int', is => 'rw', required => 1);
after clear {
$self->z(0);
}
}
my $point = Point->new(x => 1, y => 2);
isa_ok($point, 'Point');
isa_ok($point, 'Moose::Object');
is($point->x, 1, '... got the right value for x');
is($point->y, 2, '... got the right value for y');
$point->y(10);
is($point->y, 10, '... got the right (changed) value for y');
isnt( exception {
$point->y('Foo');
}, undef, '... cannot assign a non-Int to y');
isnt( exception {
Point->new();
}, undef, '... must provide required attributes to new');
$point->clear();
is($point->x, 0, '... got the right (cleared) value for x');
is($point->y, 0, '... got the right (cleared) value for y');
# check the type constraints on the constructor
is( exception {
Point->new(x => 0, y => 0);
}, undef, '... can assign a 0 to x and y');
isnt( exception {
Point->new(x => 10, y => 'Foo');
}, undef, '... cannot assign a non-Int to y');
isnt( exception {
Point->new(x => 'Foo', y => 10);
}, undef, '... cannot assign a non-Int to x');
# Point3D
my $point3d = Point3D->new({ x => 10, y => 15, z => 3 });
isa_ok($point3d, 'Point3D');
isa_ok($point3d, 'Point');
isa_ok($point3d, 'Moose::Object');
is($point3d->x, 10, '... got the right value for x');
is($point3d->y, 15, '... got the right value for y');
is($point3d->{'z'}, 3, '... got the right value for z');
$point3d->clear();
is($point3d->x, 0, '... got the right (cleared) value for x');
is($point3d->y, 0, '... got the right (cleared) value for y');
is($point3d->z, 0, '... got the right (cleared) value for z');
isnt( exception {
Point3D->new(x => 10, y => 'Foo', z => 3);
}, undef, '... cannot assign a non-Int to y');
isnt( exception {
Point3D->new(x => 'Foo', y => 10, z => 3);
}, undef, '... cannot assign a non-Int to x');
isnt( exception {
Point3D->new(x => 0, y => 10, z => 'Bar');
}, undef, '... cannot assign a non-Int to z');
isnt( exception {
Point3D->new(x => 10, y => 3);
}, undef, '... z is a required attribute for Point3D');
# test some class introspection
can_ok('Point', 'meta');
isa_ok(Point->meta, 'Moose::Meta::Class');
can_ok('Point3D', 'meta');
isa_ok(Point3D->meta, 'Moose::Meta::Class');
isnt(Point->meta, Point3D->meta, '... they are different metaclasses as well');
# poke at Point
is_deeply(
[ Point->meta->superclasses ],
[ 'Moose::Object' ],
'... Point got the automagic base class');
my @Point_methods = qw(meta new x y clear DESTROY);
my @Point_attrs = ('x', 'y');
is_deeply(
[ sort Point->meta->get_method_list() ],
[ sort @Point_methods ],
'... we match the method list for Point');
is_deeply(
[ sort Point->meta->get_attribute_list() ],
[ sort @Point_attrs ],
'... we match the attribute list for Point');
foreach my $method (@Point_methods) {
ok(Point->meta->has_method($method), '... Point has the method "' . $method . '"');
}
foreach my $attr_name (@Point_attrs ) {
ok(Point->meta->has_attribute($attr_name), '... Point has the attribute "' . $attr_name . '"');
my $attr = Point->meta->get_attribute($attr_name);
ok($attr->has_type_constraint, '... Attribute ' . $attr_name . ' has a type constraint');
isa_ok($attr->type_constraint, 'Moose::Meta::TypeConstraint');
is($attr->type_constraint->name, 'Int', '... Attribute ' . $attr_name . ' has an Int type constraint');
}
# poke at Point3D
is_deeply(
[ Point3D->meta->superclasses ],
[ 'Point' ],
'... Point3D gets the parent given to it');
my @Point3D_methods = qw(new meta z clear DESTROY);
my @Point3D_attrs = ('z');
is_deeply(
[ sort Point3D->meta->get_method_list() ],
[ sort @Point3D_methods ],
'... we match the method list for Point3D');
is_deeply(
[ sort Point3D->meta->get_attribute_list() ],
[ sort @Point3D_attrs ],
'... we match the attribute list for Point3D');
foreach my $method (@Point3D_methods) {
ok(Point3D->meta->has_method($method), '... Point3D has the method "' . $method . '"');
}
foreach my $attr_name (@Point3D_attrs ) {
ok(Point3D->meta->has_attribute($attr_name), '... Point3D has the attribute "' . $attr_name . '"');
my $attr = Point3D->meta->get_attribute($attr_name);
ok($attr->has_type_constraint, '... Attribute ' . $attr_name . ' has a type constraint');
isa_ok($attr->type_constraint, 'Moose::Meta::TypeConstraint');
is($attr->type_constraint->name, 'Int', '... Attribute ' . $attr_name . ' has an Int type constraint');
}
MooseX-Declare-0.38/t/recipes/basics/002_bank_account.t000644 000767 000024 00000006551 12253122762 023036 0ustar00etherstaff000000 000000 #!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 23;
use Test::Fatal;
use MooseX::Declare;
class BankAccount {
has 'balance' => ( isa => 'Num', is => 'rw', default => 0 );
method deposit (Num $amount) {
$self->balance( $self->balance + $amount );
}
method withdraw (Num $amount) {
my $current_balance = $self->balance();
( $current_balance >= $amount )
|| confess "Account overdrawn";
$self->balance( $current_balance - $amount );
}
}
class CheckingAccount extends BankAccount {
has 'overdraft_account' => ( isa => 'BankAccount', is => 'rw' );
before withdraw (Num $amount) {
my $overdraft_amount = $amount - $self->balance();
if ( $self->overdraft_account && $overdraft_amount > 0 ) {
$self->overdraft_account->withdraw($overdraft_amount);
$self->deposit($overdraft_amount);
}
}
}
my $savings_account = BankAccount->new(balance => 250);
isa_ok($savings_account, 'BankAccount');
is($savings_account->balance, 250, '... got the right savings balance');
is( exception {
$savings_account->withdraw(50);
}, undef, '... withdrew from savings successfully');
is($savings_account->balance, 200, '... got the right savings balance after withdrawl');
$savings_account->deposit(150);
is($savings_account->balance, 350, '... got the right savings balance after deposit');
{
my $checking_account = CheckingAccount->new(
balance => 100,
overdraft_account => $savings_account
);
isa_ok($checking_account, 'CheckingAccount');
isa_ok($checking_account, 'BankAccount');
is($checking_account->overdraft_account, $savings_account, '... got the right overdraft account');
is($checking_account->balance, 100, '... got the right checkings balance');
is( exception {
$checking_account->withdraw(50);
}, undef, '... withdrew from checking successfully');
is($checking_account->balance, 50, '... got the right checkings balance after withdrawl');
is($savings_account->balance, 350, '... got the right savings balance after checking withdrawl (no overdraft)');
is( exception {
$checking_account->withdraw(200);
}, undef, '... withdrew from checking successfully');
is($checking_account->balance, 0, '... got the right checkings balance after withdrawl');
is($savings_account->balance, 200, '... got the right savings balance after overdraft withdrawl');
}
{
my $checking_account = CheckingAccount->new(
balance => 100
# no overdraft account
);
isa_ok($checking_account, 'CheckingAccount');
isa_ok($checking_account, 'BankAccount');
is($checking_account->overdraft_account, undef, '... no overdraft account');
is($checking_account->balance, 100, '... got the right checkings balance');
is( exception {
$checking_account->withdraw(50);
}, undef, '... withdrew from checking successfully');
is($checking_account->balance, 50, '... got the right checkings balance after withdrawl');
isnt( exception {
$checking_account->withdraw(200);
}, undef, '... withdrawl failed due to attempted overdraft');
is($checking_account->balance, 50, '... got the right checkings balance after withdrawl failure');
}
MooseX-Declare-0.38/t/recipes/basics/006_augment_inner.t000644 000767 000024 00000002274 12253122762 023244 0ustar00etherstaff000000 000000 #!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use MooseX::Declare;
class Document::Page {
has 'body' => (
is => 'rw',
isa => 'Str',
default => '',
);
method create {
$self->open_page;
inner;
$self->close_page;
}
method append_body ($appendage) {
$self->body($self->body . $appendage);
}
method open_page { $self->append_body('') }
method close_page { $self->append_body('') }
}
class Document::PageWithHeadersAndFooters extends Document::Page {
augment create {
$self->create_header;
inner;
$self->create_footer;
}
method create_header { $self->append_body('') }
method create_footer { $self->append_body('