[libmixin-extrafields-param-perl] 01/25: test
Florian Schlichting
fsfs at moszumanska.debian.org
Wed Jan 29 21:00:22 UTC 2014
This is an automated email from the git hooks/post-receive script.
fsfs pushed a commit to annotated tag 0.001
in repository libmixin-extrafields-param-perl.
commit f26b3c8a42364e34366fccfcf418b82298e536e9
Author: Ricardo SIGNES <rjbs at codesimply.com>
Date: Thu Dec 22 19:12:13 2005 +0000
test
---
.cvsignore | 9 +++++++
Changes | 5 ++++
MANIFEST | 9 +++++++
Makefile.PL | 16 ++++++++++++
README | 31 +++++++++++++++++++++++
lib/Does/Param.pm | 74 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
t/00-load.t | 7 ++++++
t/pod-coverage.t | 5 ++++
t/pod.t | 5 ++++
9 files changed, 161 insertions(+)
diff --git a/.cvsignore b/.cvsignore
new file mode 100644
index 0000000..5a2d9c6
--- /dev/null
+++ b/.cvsignore
@@ -0,0 +1,9 @@
+blib*
+Makefile
+Makefile.old
+pm_to_blib*
+*.tar.gz
+.lwpcookies
+.releaserc
+Does-Param-*
+cover_db
diff --git a/Changes b/Changes
new file mode 100644
index 0000000..fdd3e6d
--- /dev/null
+++ b/Changes
@@ -0,0 +1,5 @@
+Revision history for Does-Param
+
+0.01 Date/time
+ First version, released on an unsuspecting world.
+
diff --git a/MANIFEST b/MANIFEST
new file mode 100644
index 0000000..566d29a
--- /dev/null
+++ b/MANIFEST
@@ -0,0 +1,9 @@
+Changes
+MANIFEST
+META.yml # Will be created by "make dist"
+Makefile.PL
+README
+lib/Does/Param.pm
+t/00-load.t
+t/pod-coverage.t
+t/pod.t
diff --git a/Makefile.PL b/Makefile.PL
new file mode 100644
index 0000000..494e3d9
--- /dev/null
+++ b/Makefile.PL
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+ NAME => 'Does::Param',
+ AUTHOR => 'Ricardo Signes <rjbs at cpan.org>',
+ VERSION_FROM => 'lib/Does/Param.pm',
+ ABSTRACT_FROM => 'lib/Does/Param.pm',
+ PL_FILES => {},
+ PREREQ_PM => {
+ 'Test::More' => 0,
+ },
+ dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
+ clean => { FILES => 'Does-Param-* cover_db' },
+);
diff --git a/README b/README
new file mode 100644
index 0000000..80bcae3
--- /dev/null
+++ b/README
@@ -0,0 +1,31 @@
+Does-Param
+
+The README is used to introduce the module and provide instructions on
+how to install the module, any machine dependencies it may have (for
+example C compilers and installed libraries) and any other information
+that should be provided before the module is installed.
+
+A README file is required for CPAN modules since CPAN extracts the README
+file from a module distribution so that people browsing the archive
+can use it get an idea of the modules uses. It is usually a good idea
+to provide version information here so that people can decide whether
+fixes for the module are worth downloading.
+
+INSTALLATION
+
+To install this module, run the following commands:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+
+COPYRIGHT AND LICENCE
+
+Put the correct copyright and licence information here.
+
+Copyright (C) 2005 Ricardo Signes
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
diff --git a/lib/Does/Param.pm b/lib/Does/Param.pm
new file mode 100644
index 0000000..132de25
--- /dev/null
+++ b/lib/Does/Param.pm
@@ -0,0 +1,74 @@
+package Does::Param;
+
+use warnings;
+use strict;
+
+=head1 NAME
+
+Does::Param - make your class provide a familiar "param" method
+
+=head1 VERSION
+
+version 0.01
+
+ $Id$
+
+=cut
+
+our $VERSION = '0.01';
+
+=head1 SYNOPSIS
+
+ package Widget::Parametric;
+ use Does::Param;
+
+ ...
+
+ my $widget = Widget::Parametric->new({ flavor => 'vanilla' });
+
+ printf "%s: %s\n", $_, $widget->param($_) for $widget->param;
+
+=head1 DESCRIPTION
+
+This module mixes in to your class to provide a C<param> method like the ones
+provided by L<CGI>, L<CGI::Application>, and other classes.
+
+=head1 METHODS
+
+=head2 C< param >
+
+ my @params = $object->param; # get names of existing params
+
+ my $value = $object->param('name'); # get value of a param
+
+ my $value = $object->param(name => $value); # set a param's value
+
+ my @values = $object->param(n1 => $v1, n2 => $v2, ...); # set many values
+
+=cut
+
+sub param {
+
+}
+
+=head1 AUTHOR
+
+Ricardo Signes, C<< <rjbs at cpan.org> >>
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-does-param at rt.cpan.org>, or through the web interface at
+L<http://rt.cpan.org>. I will be notified, and then you'll automatically be
+notified of progress on your bug as I make changes.
+
+=head1 COPYRIGHT
+
+Copyright 2005 Ricardo Signes, All Rights Reserved.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
+
+1;
diff --git a/t/00-load.t b/t/00-load.t
new file mode 100644
index 0000000..ec93633
--- /dev/null
+++ b/t/00-load.t
@@ -0,0 +1,7 @@
+use Test::More tests => 1;
+
+BEGIN {
+ use_ok('Does::Param');
+}
+
+diag( "Testing Does::Param $Does::Param::VERSION" );
diff --git a/t/pod-coverage.t b/t/pod-coverage.t
new file mode 100644
index 0000000..bced814
--- /dev/null
+++ b/t/pod-coverage.t
@@ -0,0 +1,5 @@
+use Test::More;
+eval "use Test::Pod::Coverage 1.06";
+plan skip_all => "Test::Pod::Coverage 1.06 required for testing POD coverage"
+ if $@;
+all_pod_coverage_ok();
diff --git a/t/pod.t b/t/pod.t
new file mode 100644
index 0000000..aa819af
--- /dev/null
+++ b/t/pod.t
@@ -0,0 +1,5 @@
+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();
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmixin-extrafields-param-perl.git
More information about the Pkg-perl-cvs-commits
mailing list