@@ -1,52 +0,0 @@-use Module::Build;--use 5.006_002;--my $class = Module::Build->subclass(- class => 'Module::Build::FilterTests',- code => <<'END_HERE',-- use File::Glob;- use File::Spec::Functions;-- sub ACTION_disttest- {- my $self = shift;- local $ENV{PERL_RUN_ALL_TESTS} = 1;- $self->SUPER::ACTION_disttest( @_ );- }-- sub find_test_files- {- my $self = shift;- my $tests = $self->SUPER::find_test_files( @_ );-- return $tests unless $ENV{PERL_RUN_ALL_TESTS};-- my $test_pattern = catfile(qw( t developer *.t ) );- push @$tests, File::Glob::bsd_glob( $test_pattern );- return $tests;- }-END_HERE-);--my $build = $class->new(- module_name => 'Test::MockObject',- license => 'perl',- requires =>- {- 'perl' => '5.6.2',- 'Scalar::Util' => '1.1.4',- 'Test::Simple' => '0.47',- 'UNIVERSAL::isa' => '0.06',- 'UNIVERSAL::can' => '1.11',- },- build_requires =>- {- 'Test::Exception' => '',- },- dist_version_from => 'lib/Test/MockObject.pm',- create_makefile_pl => 'traditional',-);--$build->create_build_script();
@@ -1,7 +1,12 @@Revision history for Perl extension Test::MockObject.+1.20110606+ Sun Jun 04 2011+ - converted to Dist::Zilla+ - posted to GitHub+1.09- Tue May 27 06:11:24 UTC 2008 ($Rev$, $Author$)+ Tue May 27 06:11:24 UTC 2008- removed a buggy workaround for C<no warnings 'redefine';>, now that 5.6.2is the baseline
@@ -0,0 +1,379 @@+This software is copyright (c) 2011 by chromatic@wgz.org.++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) 2011 by chromatic@wgz.org.++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, Fifth Floor, Boston, MA 02110-1301 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.++ <one line to give the program's name and a brief idea of what it does.>+ Copyright (C) 19yy <name of author>++ 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.++ <signature of Ty Coon>, 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) 2011 by chromatic@wgz.org.++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+
@@ -1,17 +1,30 @@-Build.PLChanges-Makefile.PL+LICENSEMANIFEST+META.yml+MYMETA.json+Makefile.PL+README+_build/auto_features+_build/build_params+_build/cleanup+_build/config_data+_build/features+_build/lib/Module/Build/FilterTests.pm+_build/magicnum+_build/notes+_build/prereqs+_build/runtime_params+dist.inilib/Test/MockObject.pmlib/Test/MockObject/Extends.pm-READMEt/base.tt/bugs.tt/debugger.t-t/extends.t+t/debuggingwarnings.t+t/debuggingwarningsextends.tt/extends-bugs.t-t/isa.t+t/extends.tt/ignore.t-t/developer/pod.t-t/developer/pod-coverage.t-META.yml Module meta-data (added by MakeMaker)+t/isa.t+t/nodefaultwarnings.t
@@ -1,27 +1,22 @@----name: Test-MockObject-version: 1.09-author: []-abstract: Perl extension for emulating troublesome interfaces-license: perl-resources:- license: http://dev.perl.org/licenses/-requires:- Scalar::Util: 1.1.4- Test::Simple: 0.47- UNIVERSAL::can: 1.11- UNIVERSAL::isa: 0.06- perl: 5.6.2+abstract: 'Perl extension for emulating troublesome interfaces'+author:+ - chromaticbuild_requires:- Test::Exception: ''-provides:- Test::MockObject:- file: lib/Test/MockObject.pm- version: 1.09- Test::MockObject::Extends:- file: lib/Test/MockObject/Extends.pm- version: 1.09-generated_by: Module::Build version 0.2808+ CGI: 0+ Test::Exception: 0.31+ Test::More: 0.98+ Test::Warn: 0.23+configure_requires:+ ExtUtils::MakeMaker: 6.30+dynamic_config: 0+generated_by: 'Dist::Zilla version 4.200006, CPAN::Meta::Converter version 2.110440'+license: perlmeta-spec:- version: 1.2+ version: 1.4+name: Test-MockObject+requires:+ UNIVERSAL::can: 1.16+ UNIVERSAL::isa: 1.03+version: 1.20110606
@@ -0,0 +1,49 @@+{+ "abstract" : "Perl extension for emulating troublesome interfaces",+ "author" : [+ "unknown"+ ],+ "dynamic_config" : 0,+ "generated_by" : "Module::Build version 0.38, CPAN::Meta::Converter version 2.110440",+ "license" : [+ "perl_5"+ ],+ "meta-spec" : {+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",+ "version" : "2"+ },+ "name" : "Test-MockObject",+ "prereqs" : {+ "build" : {+ "requires" : {+ "Test::Exception" : 0+ }+ },+ "runtime" : {+ "requires" : {+ "Scalar::Util" : "v1.1.4",+ "Test::Simple" : "0.47",+ "UNIVERSAL::can" : "1.11",+ "UNIVERSAL::isa" : "0.06",+ "perl" : "v5.6.2"+ }+ }+ },+ "provides" : {+ "Test::MockObject" : {+ "file" : "lib/Test/MockObject.pm",+ "version" : "1.09"+ },+ "Test::MockObject::Extends" : {+ "file" : "lib/Test/MockObject/Extends.pm",+ "version" : "1.09"+ }+ },+ "release_status" : "stable",+ "resources" : {+ "license" : [+ ]+ },+ "version" : "1.09"+}
@@ -1,21 +1,57 @@-# Note: this file was auto-generated by Module::Build::Compat version 0.03-use ExtUtils::MakeMaker;--use 5.006_002;--WriteMakefile-(- 'PL_FILES' => {},- 'INSTALLDIRS' => 'site',- 'NAME' => 'Test::MockObject',- 'EXE_FILES' => [],- 'VERSION_FROM' => 'lib/Test/MockObject.pm',- 'PREREQ_PM' => {- 'Scalar::Util' => '1.1.4',- 'Test::Exception' => '',- 'UNIVERSAL::isa' => '0.06',- 'UNIVERSAL::can' => '1.11',- 'Test::Simple' => '0.47'- }- )-;++use strict;+use warnings;++++use ExtUtils::MakeMaker 6.30;++++my %WriteMakefileArgs = (+ 'ABSTRACT' => 'Perl extension for emulating troublesome interfaces',+ 'AUTHOR' => 'chromatic',+ 'BUILD_REQUIRES' => {+ 'CGI' => '0',+ 'Test::Exception' => '0.31',+ 'Test::More' => '0.98',+ 'Test::Warn' => '0.23'+ },+ 'CONFIGURE_REQUIRES' => {+ 'ExtUtils::MakeMaker' => '6.30'+ },+ 'DISTNAME' => 'Test-MockObject',+ 'EXE_FILES' => [],+ 'LICENSE' => 'perl',+ 'NAME' => 'Test::MockObject',+ 'PREREQ_PM' => {+ 'UNIVERSAL::can' => '1.16',+ 'UNIVERSAL::isa' => '1.03'+ },+ 'VERSION' => '1.20110606',+ 'test' => {+ 'TESTS' => 't/*.t'+ }+);+++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);+++
@@ -1,83 +1,13 @@-Test::MockObject version 1.09-=============================-* NOTES *-Because you can break this module very badly by using the isa() and can()-methods as if they were functions, version 1.01 started to use the-UNIVERSAL::isa and UNIVERSAL::can modules. They'll do the right thing but-complain about it so that you can fix the offending code. These require Perl-5.6.0 or better.+This archive contains the distribution Test-MockObject,+version 1.20110606:-Newer versions of those modules will complain less; see 1.20 of each.+ Perl extension for emulating troublesome interfaces-If you want to run all of the tests (including the developer tests that check-the signature and POD coverage), set the environment variable-PERL_RUN_ALL_TESTS to true. I don't know why you want to do this though,-unless you're me.+This software is copyright (c) 2011 by chromatic@wgz.org.-I removed T::MO::add() as of version 1.0. I deprecated it a long, long time-ago. Also, T::MO::E should handle a few more types of extending now, but-please report any weirdnesses to http://rt.cpan.org/ for this module if you run-into trouble.+This is free software; you can redistribute it and/or modify it under+the same terms as the Perl 5 programming language system itself.-The documentation of T::MO::E is correct as of version 0.20. Also, isa() works-much better in T::MO, thanks to Stevan Little.-You can now skip logging certain mocked methods in T::MO and T::MO::E version 0.15. Finally!--I've added Test::MockObject:Extends in version 0.14. This required making-Test::MockObject a little more subclassable.--As of version 0.12, I've fixed the false positives in called_ok(). Jay Bonci-found this one and wrote the test case. Oops.--As of version 0.11, I've fixed a potential infinite loop with a set_series()-mocked method called in list context. Yuck.--As of version 0.10, mock objects no longer store their state within the objects-themselves. That also means that you can have mock objects that aren't hash-references. Nifty.--As of version 0.09, method chaining works for mocking methods. Handy! Use it!--As of version 0.07, the add() method has been deprecated in favor of mock().-It continues to work, for backwards compatibility purposes, but you are-encouraged to migrate to mock(). (Thank you for using the module, though. :)--Test::MockObject is a highly polymorphic testing object, capable of looking-like all sorts of objects. This makes white-box testing much easier, as you-can concentrate on what the code being tested sends to and receives from the-mocked object, instead of worrying about faking up your own data. (Another-option is not to test difficult things. Now you have no excuse.)--Please note that it is possible to write highly detailed unit tests that pass-even when your integration tests may fail. Testing the pieces individually-does not excuse you from testing the whole thing together. I consider this to-be a feature.--INSTALLATION--To install this module type the following:-- $ perl Build.PL- $ perl ./Build- $ perl ./Build test- # ./Build install--You can also use the Makefile.PL. I don't.--DEPENDENCIES--This module requires these other modules and libraries:-- Test::Simple version 0.44 or newer (I fixed a bug :)- Test::Exception- Scalar::Util, without which you have a broken Perl installation post-5.6- UNIVERSAL::isa and UNIVERSAL::can (always the latest versions)--COPYRIGHT AND LICENCE--Copyright (c) 2002 - 2008 chromatic. All rights reserved. This program is free-software; you can redistribute it and/or modify it under the same terms as Perl-5.10.x itself.
@@ -0,0 +1,2 @@+do{ my $x = {};+$x; }\ No newline at end of file
@@ -0,0 +1,124 @@+do{ my $x = [+ {+ 'ARGV' => []+ },+ {},+ {+ 'verbose' => undef,+ 'dist_suffix' => undef,+ 'PL_files' => undef,+ 'pollute' => undef,+ 'metafile2' => 'META.json',+ 'bindoc_dirs' => [+ 'blib/script'+ ],+ 'conflicts' => {},+ 'recommends' => {},+ 'scripts' => undef,+ 'pod_files' => undef,+ 'dist_version' => '1.09',+ 'config_dir' => '_build',+ 'sign' => undef,+ 'recurse_into' => [],+ 'build_bat' => 0,+ 'extra_linker_flags' => [],+ 'build_class' => 'Module::Build::FilterTests',+ 'prereq_action_types' => [+ 'requires',+ 'build_requires',+ 'conflicts',+ 'recommends'+ ],+ 'base_dir' => '/home/chromatic/dev/cpan/Test-MockObject',+ 'allow_mb_mismatch' => 0,+ 'xs_files' => undef,+ 'destdir' => undef,+ 'metafile' => 'META.yml',+ 'mb_version' => '0.38',+ 'use_tap_harness' => 0,+ 'test_file_exts' => [+ '.t'+ ],+ 'dist_name' => 'Test-MockObject',+ 'has_config_data' => undef,+ 'install_base' => undef,+ 'module_name' => 'Test::MockObject',+ 'recursive_test_files' => undef,+ 'libdoc_dirs' => [+ 'blib/lib',+ 'blib/arch'+ ],+ 'perl' => '/home/chromatic/.perl5/perls/perl-5.14.0/bin/perl',+ 'dist_author' => undef,+ 'bundle_inc' => [],+ 'use_rcfile' => 1,+ 'configure_requires' => {},+ 'test_files' => undef,+ 'dist_abstract' => undef,+ 'create_readme' => undef,+ 'prefix_relpaths' => {},+ 'share_dir' => undef,+ 'debug' => undef,+ 'meta_merge' => {},+ 'get_options' => {},+ 'dist_version_from' => 'lib/Test/MockObject.pm',+ '_added_to_INC' => [+ '/home/chromatic/dev/cpan/Test-MockObject/_build/lib'+ ],+ 'auto_configure_requires' => 1,+ 'create_license' => undef,+ 'debugger' => undef,+ 'html_css' => '',+ 'cpan_client' => 'cpan',+ 'mymetafile2' => 'MYMETA.json',+ 'bundle_inc_preload' => [],+ 'build_elements' => [+ 'PL',+ 'support',+ 'pm',+ 'xs',+ 'share_dir',+ 'pod',+ 'script'+ ],+ 'release_status' => 'stable',+ 'needs_compiler' => '',+ 'orig_dir' => '/home/chromatic/dev/cpan/Test-MockObject',+ 'include_dirs' => [],+ 'installdirs' => 'site',+ 'mymetafile' => 'MYMETA.yml',+ 'create_makefile_pl' => 'traditional',+ 'magic_number' => undef,+ 'dynamic_config' => 1,+ 'install_sets' => {},+ 'tap_harness_args' => {},+ 'install_base_relpaths' => {},+ 'create_packlist' => 1,+ 'meta_add' => {},+ 'requires' => {+ 'Scalar::Util' => '1.1.4',+ 'perl' => '5.6.2',+ 'UNIVERSAL::isa' => '0.06',+ 'UNIVERSAL::can' => '1.11',+ 'Test::Simple' => '0.47'+ },+ 'install_path' => {},+ 'pm_files' => undef,+ 'quiet' => undef,+ 'script_files' => undef,+ 'extra_compiler_flags' => [],+ 'build_script' => 'Build',+ 'original_prefix' => {},+ 'c_source' => undef,+ 'program_name' => undef,+ 'autosplit' => undef,+ 'license' => 'perl',+ 'build_requires' => {+ 'Test::Exception' => ''+ },+ 'config' => undef,+ 'blib' => 'blib',+ 'prefix' => undef+ }+ ];+$x; }\ No newline at end of file
@@ -0,0 +1,4 @@+do{ my $x = {+ 'blib' => 1+ };+$x; }\ No newline at end of file
@@ -0,0 +1,2 @@+do{ my $x = {};+$x; }\ No newline at end of file
@@ -0,0 +1,2 @@+do{ my $x = {};+$x; }\ No newline at end of file
@@ -0,0 +1,27 @@+package Module::Build::FilterTests;+use Module::Build;+@ISA = qw(Module::Build);++ use File::Glob;+ use File::Spec::Functions;++ sub ACTION_disttest+ {+ my $self = shift;+ local $ENV{PERL_RUN_ALL_TESTS} = 1;+ $self->SUPER::ACTION_disttest( @_ );+ }++ sub find_test_files+ {+ my $self = shift;+ my $tests = $self->SUPER::find_test_files( @_ );++ return $tests unless $ENV{PERL_RUN_ALL_TESTS};++ my $test_pattern = catfile(qw( t developer *.t ) );+ push @$tests, File::Glob::bsd_glob( $test_pattern );+ return $tests;+ }++1;
@@ -0,0 +1 @@+164782\ No newline at end of file
@@ -0,0 +1,2 @@+do{ my $x = {};+$x; }\ No newline at end of file
@@ -0,0 +1,15 @@+do{ my $x = {+ 'build_requires' => {+ 'Test::Exception' => ''+ },+ 'conflicts' => {},+ 'requires' => {+ 'Scalar::Util' => '1.1.4',+ 'perl' => '5.6.2',+ 'UNIVERSAL::isa' => '0.06',+ 'UNIVERSAL::can' => '1.11',+ 'Test::Simple' => '0.47'+ },+ 'recommends' => {}+ };+$x; }\ No newline at end of file
@@ -0,0 +1,2 @@+do{ my $x = {};+$x; }\ No newline at end of file
@@ -0,0 +1,31 @@+name = Test-MockObject+author = chromatic+license = Perl_5+copyright_holder = chromatic@wgz.org+copyright_year = 2011++[AutoVersion]+format = {{ cldr('1.yyyyMMdd') }}++[Prereqs]+UNIVERSAL::isa = 1.03+UNIVERSAL::can = 1.16++[Prereqs / TestRequires]+CGI = 0+Test::More = 0.98+Test::Exception = 0.31+Test::Warn = 0.23++[@Basic]+[PkgVersion]+[NextRelease]++[@Git]+changelog = Changes ; this is the default+allow_dirty = dist.ini ; see Git::Check...+allow_dirty = Changes ; ... and Git::Commit+commit_msg = v%v%n%n%c ; see Git::Commit+tag_format = %v ; see Git::Tag+tag_message = %v ; see Git::Tag+push_to = origin ; see Git::Push
@@ -1,16 +1,23 @@package Test::MockObject::Extends;+BEGIN {+ $Test::MockObject::Extends::VERSION = '1.20110606';+}use strict;use warnings;use Test::MockObject;+sub import+{+ my $self = shift;+ eval "use Test::MockObject";+ Test::MockObject->import( @_ );+}+use Devel::Peek 'CvGV';use Scalar::Util 'blessed';-use vars qw( $VERSION $AUTOLOAD );-$VERSION = '1.09';-sub new{my ($class, $fake_class) = @_;@@ -107,6 +114,8 @@ sub gen_autoloadsub{+ our $AUTOLOAD;+my $method = substr( $AUTOLOAD, rindex( $AUTOLOAD, ':' ) +1 );return if $method eq 'DESTROY';@@ -313,5 +322,5 @@ No known bugs.=head1 COPYRIGHT-Copyright (c) 2004 - 2008, chromatic. All rights reserved. You may use,+Copyright (c) 2004 - 2011, chromatic. All rights reserved. You may use,modify, and distribute this module under the same terms as Perl 5.10
@@ -1,14 +1,20 @@package Test::MockObject;+BEGIN {+ $Test::MockObject::VERSION = '1.20110606';+}use strict;use warnings;-use vars qw( $VERSION $AUTOLOAD );-$VERSION = '1.09';-use Scalar::Util qw( blessed refaddr reftype weaken );-use UNIVERSAL::isa;-use UNIVERSAL::can;++sub import+{+ my $self = shift;+ return unless grep /^-debug/, @_;+ eval "use UNIVERSAL::isa 'verbose'";+ eval "use UNIVERSAL::can '-always_warn'";+}use Test::Builder;@@ -203,6 +209,8 @@ sub next_callsub AUTOLOAD{+ our $AUTOLOAD;+my $self = shift;my $sub;{@@ -451,7 +459,7 @@ Test::MockObject - Perl extension for emulating troublesome interfacesok( $mock->somemethod() );$mock->set_true( 'veritas')- ->set_false( 'ficta' )+ ->set_false( 'ficta' )->set_series( 'amicae', 'Sunny', 'Kylie', 'Bella' );=head1 DESCRIPTION@@ -468,21 +476,34 @@ Test::MockObject allows you to create objects that conform to particularinterfaces with very little code. You don't have to reimplement the behavior,just the input and the output.-=head2 IMPORTANT CAVEAT FOR TESTERS+=head2 IMPORTANT CAVEATS-Please note that it is possible to write highly detailed unit tests that pass-even when your integration tests may fail. Testing the pieces individually-does not excuse you from testing the whole thing together. I consider this to-be a feature.+Before you go wild with your testing powers, consider three caveats:-In cases where you only need to mock one or two pieces of an existing module,-consider L<Test::MockObject::Extends> instead.+=over 4++=item * It is possible to write highly detailed unit tests that pass even when+your integration tests may fail. Testing the pieces individually does not+excuse you from testing the whole thing together.++=item * In cases where you only need to mock one or two pieces of an existing+module, consider L<Test::MockObject::Extends> instead.++=item * If the code under testing produces strange errors about type checks,+pass the C<-debug> flag when using C<Test::MockObject> or+C<Test::MockObject::Extends>. This will load both L<UNIVERSAL::isa> and+L<UNIVERSAL::can> to perform additional debugging on the incorrect use of both+methods from the L<UNIVERSAL> package. (This behavior used to be active by+default, but that was, however correct, probably a burden to onerous for the+CPAN.)++=back=head2 EXPORT-None by default. Maybe the Test::Builder accessories, in a future version.+None.-=head2 FUNCTIONS+=head2 METHODSThe most important thing a Mock Object can do is to conform sufficiently to aninterface. For example, if you're testing something that relies on CGI.pm, you@@ -533,7 +554,7 @@ object. For example, this code:will print a helpful warning message. Please note that methods are only addedto a single object at a time and not the class. (There is no small similarity-to the Self programming language or the Class::Prototyped module.)+to the Self programming language or the L<Class::Prototyped> module.)This method forms the basis for most of Test::MockObject's testing goodness.@@ -544,7 +565,7 @@ try to do what you mean, but I make few guarantees.=item * C<fake_module(I<module name>), [ I<subname> => I<coderef>, ... ]-B<Note:> this method will likely become a separate module in the near future.+B<Note:> See L<Test::MockModule> for an alternate (and better) approach.Lies to Perl that it has already loaded a named module. This is handy whenproviding a mockup of a real module if you'd like to prevent the actual module@@ -873,7 +894,7 @@ L<http:E<sol>E<sol>www.perl.comE<sol>pubE<sol>aE<sol>2002E<sol>07E<sol>10E<sol>t=head1 COPYRIGHT-Copyright (c) 2002 - 2008 by chromatic E<lt>chromatic at wgz dot orgE<gt>.+Copyright (c) 2002 - 2011 by chromatic E<lt>chromatic at wgz dot orgE<gt>.This program is free software; you can use, modify, and redistribute it underthe same terms as Perl 5.10.x itself.
@@ -0,0 +1,29 @@+#! perl++use strict;+use warnings;++use Test::More;+use Test::Warn;++BEGIN+{+ use_ok 'Test::MockObject';+ Test::MockObject->import( '-debug' );+}++package Foo;++sub can {}++package main;++warnings_like { UNIVERSAL::isa( {}, 'HASH' ) }+ qr/Called UNIVERSAL::isa\(\) as a function, not a method/,+ 'T::MO should enable U::i when loaded with -debug flag';++warnings_exist { UNIVERSAL::can( 'Foo', 'to_string' ) }+ [ qr/Called UNIVERSAL::can\(\) as a function, not a method/ ],+ 'T::MO should enable U::c when loaded with -debug flag';++done_testing();
@@ -0,0 +1,29 @@+#! perl++use strict;+use warnings;++use Test::More;+use Test::Warn;++BEGIN+{+ use_ok 'Test::MockObject::Extends';+ Test::MockObject::Extends->import( '-debug' );+}++package Foo;++sub can {}++package main;++warnings_like { UNIVERSAL::isa( {}, 'HASH' ) }+ qr/Called UNIVERSAL::isa\(\) as a function, not a method/,+ 'T::MO::E should enable U::i when loaded with -debug flag';++warnings_exist { UNIVERSAL::can( 'Foo', 'to_string' ) }+ [ qr/Called UNIVERSAL::can\(\) as a function, not a method/ ],+ 'T::MO::E should enable U::c when loaded with -debug flag';++done_testing();
@@ -1,6 +0,0 @@-#!perl -T--use Test::More;-eval "use Test::Pod::Coverage 1.04";-plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;-all_pod_coverage_ok();
@@ -1,6 +0,0 @@-#!perl -T--use Test::More;-eval "use Test::Pod 1.14";-plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;-all_pod_files_ok();
@@ -0,0 +1,25 @@+#! perl++use strict;+use warnings;++use Test::More;+use Test::Warn;++use_ok 'Test::MockObject';++warning_is { UNIVERSAL::isa( {}, 'HASH' ) } undef,+ 'T::MO should not enable U::i by default';++warning_is { UNIVERSAL::can( 'UNIVERSAL', 'to_string' ) } undef,+ 'T::MO should not enable U::c by default';++use_ok 'Test::MockObject::Extends';++warning_is { UNIVERSAL::isa( {}, 'HASH' ) } undef,+ 'T::MO::E should not enable U::i by default';++warning_is { UNIVERSAL::can( 'UNIVERSAL', 'to_string' ) } undef,+ 'T::MO::E should not enable U::c by default';++done_testing();