Imported Upstream version 1.05
This commit is contained in:
Mario Fetka
parent
ae1b1f5377
commit
563d8fdc61
@ -1,71 +0,0 @@
|
|||||||
;; -*- coding: emacs-mule; -*-
|
|
||||||
;; --------------------------------------------------------------------------
|
|
||||||
;; Desktop File for Emacs
|
|
||||||
;; --------------------------------------------------------------------------
|
|
||||||
;; Created Fri Feb 18 13:17:58 2005
|
|
||||||
;; Emacs version 21.2.1
|
|
||||||
|
|
||||||
;; Global section:
|
|
||||||
(setq desktop-missing-file-warning nil)
|
|
||||||
(setq tags-file-name nil)
|
|
||||||
(setq tags-table-list nil)
|
|
||||||
(setq search-ring '("sub default" "sub constructor" "constructor" "constructor method" "sub getne" "current" "getnext" "geto" "getobject" "getnextobjectid"))
|
|
||||||
(setq regexp-search-ring nil)
|
|
||||||
(setq register-alist nil)
|
|
||||||
|
|
||||||
;; Buffer section:
|
|
||||||
(desktop-create-buffer 205
|
|
||||||
"/home/jjordan/src/perl/Test-MockClass/Makefile.PL"
|
|
||||||
"Makefile.PL"
|
|
||||||
'perl-mode
|
|
||||||
'(nil)
|
|
||||||
1
|
|
||||||
'(nil nil)
|
|
||||||
nil
|
|
||||||
nil
|
|
||||||
nil)
|
|
||||||
|
|
||||||
(desktop-create-buffer 205
|
|
||||||
"/home/jjordan/src/perl/Perl-SemanticNet/t/01_SemanticNet_Node.t"
|
|
||||||
"01_SemanticNet_Node.t"
|
|
||||||
'cperl-mode
|
|
||||||
'(nil)
|
|
||||||
441
|
|
||||||
'(nil nil)
|
|
||||||
nil
|
|
||||||
nil
|
|
||||||
nil)
|
|
||||||
|
|
||||||
(desktop-create-buffer 205
|
|
||||||
"/home/jjordan/src/perl/Test-MockClass/t/00_MockClass.t"
|
|
||||||
"00_MockClass.t"
|
|
||||||
'cperl-mode
|
|
||||||
'(nil)
|
|
||||||
2858
|
|
||||||
'(1 t)
|
|
||||||
nil
|
|
||||||
nil
|
|
||||||
nil)
|
|
||||||
|
|
||||||
(desktop-create-buffer 205
|
|
||||||
"/home/jjordan/src/perl/Test-MockClass/lib/Test/MockClass.pm"
|
|
||||||
"MockClass.pm"
|
|
||||||
'cperl-mode
|
|
||||||
'(nil)
|
|
||||||
12990
|
|
||||||
'(17434 t)
|
|
||||||
nil
|
|
||||||
nil
|
|
||||||
nil)
|
|
||||||
|
|
||||||
(desktop-create-buffer 205
|
|
||||||
"/tmp/cvsdz8zNY"
|
|
||||||
"cvsdz8zNY"
|
|
||||||
'fundamental-mode
|
|
||||||
nil
|
|
||||||
14
|
|
||||||
'(nil nil)
|
|
||||||
nil
|
|
||||||
nil
|
|
||||||
nil)
|
|
||||||
|
|
||||||
1
MANIFEST
1
MANIFEST
@ -1,4 +1,3 @@
|
|||||||
.emacs.desktop
|
|
||||||
lib/Test/MockClass/MyClass.pm
|
lib/Test/MockClass/MyClass.pm
|
||||||
lib/Test/MockClass.pm
|
lib/Test/MockClass.pm
|
||||||
Makefile.PL
|
Makefile.PL
|
||||||
|
|||||||
34
META.yml
34
META.yml
@ -1,10 +1,26 @@
|
|||||||
# http://module-build.sourceforge.net/META-spec.html
|
--- #YAML:1.0
|
||||||
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
|
name: Test-MockClass
|
||||||
name: Test-MockClass
|
version: 1.05
|
||||||
version: 1.04
|
abstract: A class to create mock classes and object for testing purposes
|
||||||
version_from: lib/Test/MockClass.pm
|
author:
|
||||||
installdirs: site
|
- Jeremiah Jordan <jjordan@perlreason.com>
|
||||||
|
license: unknown
|
||||||
|
distribution_type: module
|
||||||
|
configure_requires:
|
||||||
|
ExtUtils::MakeMaker: 0
|
||||||
|
build_requires:
|
||||||
|
ExtUtils::MakeMaker: 0
|
||||||
requires:
|
requires:
|
||||||
|
Hook::WrapSub: 0.03
|
||||||
distribution_type: module
|
Scalar::Util: 1.14
|
||||||
generated_by: ExtUtils::MakeMaker version 6.17
|
Task::Weaken: 0
|
||||||
|
Test::SimpleUnit: 1.21
|
||||||
|
Tie::Watch: 1.1
|
||||||
|
no_index:
|
||||||
|
directory:
|
||||||
|
- t
|
||||||
|
- inc
|
||||||
|
generated_by: ExtUtils::MakeMaker version 6.56
|
||||||
|
meta-spec:
|
||||||
|
url: http://module-build.sourceforge.net/META-spec-v1.4.html
|
||||||
|
version: 1.4
|
||||||
|
|||||||
81
Makefile.PL
81
Makefile.PL
@ -1,66 +1,5 @@
|
|||||||
#!/usr/bin/perl
|
#!/usr/bin/perl
|
||||||
#
|
use ExtUtils::MakeMaker;
|
||||||
# Perl Makefile for Test-Mockclass
|
|
||||||
# $Id: Makefile.PL,v 1.1.1.1 2005/02/16 19:46:23 phaedrus Exp $
|
|
||||||
#
|
|
||||||
# Invocation:
|
|
||||||
# $ perl Makefile.PL # interactive behaviour
|
|
||||||
# $ perl Makefile.PL --defaultdeps # accept default value on prompts
|
|
||||||
# $ perl Makefile.PL --checkdeps # check only, no Makefile produced
|
|
||||||
# $ perl Makefile.PL --skipdeps # ignores all dependencies
|
|
||||||
# $ perl Makefile.PL --testonly # don't write installation targets
|
|
||||||
#
|
|
||||||
# Then, to build:
|
|
||||||
# $ make [all|test|install] # install dependencies first
|
|
||||||
# $ make checkdeps # same as the --checkdeps above
|
|
||||||
# $ make installdeps # install dependencies only
|
|
||||||
#
|
|
||||||
|
|
||||||
# ExtUtils::AutoInstall Bootstrap Code, version 7.
|
|
||||||
BEGIN{my$p='ExtUtils::AutoInstall';my$v=0.45;$p->VERSION||0>=$v
|
|
||||||
or+eval"use $p $v;1"or+do{my$e=$ENV{PERL_EXTUTILS_AUTOINSTALL};
|
|
||||||
(!defined($e)||$e!~m/--(?:default|skip|testonly)/and-t STDIN or
|
|
||||||
eval"use ExtUtils::MakeMaker;WriteMakefile(PREREQ_PM=>{'$p',$v}
|
|
||||||
);1"and exit)and print"==> $p $v required. Install it from CP".
|
|
||||||
"AN? [Y/n] "and<STDIN>!~/^n/i and print"*** Installing $p\n"and
|
|
||||||
do{if (eval '$>' and lc(`sudo -V`) =~ /version/){system('sudo',
|
|
||||||
$^X,"-MCPANPLUS","-e","CPANPLUS::install $p");eval"use $p $v;1"
|
|
||||||
||system('sudo', $^X, "-MCPAN", "-e", "CPAN::install $p")}eval{
|
|
||||||
require CPANPLUS;CPANPLUS::install$p};eval"use $p $v;1"or eval{
|
|
||||||
require CPAN;CPAN::install$p};eval"use $p $v;1"||die"*** Please
|
|
||||||
manually install $p $v from cpan.org first...\n"}}}
|
|
||||||
|
|
||||||
use File::Find;
|
|
||||||
|
|
||||||
# the above handlers must be declared before the 'use' statement
|
|
||||||
use ExtUtils::AutoInstall (
|
|
||||||
|
|
||||||
# required AutoInstall version
|
|
||||||
-version => '0.40',
|
|
||||||
|
|
||||||
# core modules; may also be 'all'
|
|
||||||
-core => {
|
|
||||||
Hook::WrapSub => 0.03,
|
|
||||||
Scalar::Util => 1.14,
|
|
||||||
Test::SimpleUnit => 1.21,
|
|
||||||
Tie::Watch => 1.1,
|
|
||||||
},
|
|
||||||
);
|
|
||||||
|
|
||||||
# Build a custom list of modules to install. This is because the parser module
|
|
||||||
# generation happens because it's a target, so it doesn't exist before the
|
|
||||||
# PM list is generated
|
|
||||||
my %pm = ();
|
|
||||||
|
|
||||||
|
|
||||||
File::Find::find(
|
|
||||||
sub {
|
|
||||||
if (/\.pm$/s) {
|
|
||||||
my $name = "$File::Find::dir/$_";
|
|
||||||
print "Adding: $_ => $name\n";
|
|
||||||
($pm{$name} = $name) =~ s{lib/}{\$(INST_LIBDIR)/}
|
|
||||||
}
|
|
||||||
}, "lib" );
|
|
||||||
|
|
||||||
WriteMakefile(
|
WriteMakefile(
|
||||||
NAME => 'MockClass',
|
NAME => 'MockClass',
|
||||||
@ -68,15 +7,21 @@ WriteMakefile(
|
|||||||
VERSION_FROM => 'lib/Test/MockClass.pm',
|
VERSION_FROM => 'lib/Test/MockClass.pm',
|
||||||
AUTHOR => 'Jeremiah Jordan <jjordan@perlreason.com>',
|
AUTHOR => 'Jeremiah Jordan <jjordan@perlreason.com>',
|
||||||
ABSTRACT => 'A class to create mock classes and object for testing purposes',
|
ABSTRACT => 'A class to create mock classes and object for testing purposes',
|
||||||
PM => \%pm,
|
PREREQ_PM => {
|
||||||
|
'Hook::WrapSub' => 0.03,
|
||||||
|
'Scalar::Util' => 1.14,
|
||||||
|
'Task::Weaken' => 0,
|
||||||
|
'Test::SimpleUnit' => 1.21,
|
||||||
|
'Tie::Watch' => 1.1,
|
||||||
|
},
|
||||||
dist => {
|
dist => {
|
||||||
TARFLAGS => 'cvf',
|
TARFLAGS => 'cvf',
|
||||||
CI => "cvs commit",
|
CI => "cvs commit",
|
||||||
RCS_LABEL => 'cvs tag r$(VERSION_SYM)',
|
RCS_LABEL => 'cvs tag r$(VERSION_SYM)',
|
||||||
SUFFIX => ".gz",
|
SUFFIX => ".gz",
|
||||||
DIST_CP => 'ln',
|
DIST_CP => 'ln',
|
||||||
DIST_DEFAULT => 'all tardist',
|
DIST_DEFAULT => 'all tardist',
|
||||||
COMPRESS => "gzip",
|
COMPRESS => "gzip",
|
||||||
},
|
},
|
||||||
clean => { FILES => "*.tar.bz2 *.tar.gz" },
|
clean => { FILES => "*.tar.bz2 *.tar.gz" },
|
||||||
);
|
);
|
||||||
|
|||||||
@ -279,8 +279,8 @@ BEGIN {
|
|||||||
### Versioning stuff and custom includes
|
### Versioning stuff and custom includes
|
||||||
use vars qw{$VERSION $RCSID};
|
use vars qw{$VERSION $RCSID};
|
||||||
|
|
||||||
$VERSION = do { my @r = (q$Revision: 1.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
|
$VERSION = do { my @r = (q$Revision: 1.5 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
|
||||||
$RCSID = q$Id: MockClass.pm,v 1.4 2005/02/18 21:16:20 phaedrus Exp $;
|
$RCSID = q$Id: MockClass.pm,v 1.5 2005/02/18 21:16:20 phaedrus Exp $;
|
||||||
use Carp;
|
use Carp;
|
||||||
use Hook::WrapSub qw{wrap_subs unwrap_subs};
|
use Hook::WrapSub qw{wrap_subs unwrap_subs};
|
||||||
use Tie::Watch;
|
use Tie::Watch;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user