Index: /lang/perl/MouseX-Param/tags/release-0.01/t/01_basic.t
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/t/01_basic.t (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/t/01_basic.t (revision 28318)
@@ -0,0 +1,37 @@
+use Test::Base;
+use Test::Deep;
+
+{
+    package MyApp;
+    use Mouse;
+    with 'MouseX::Param';
+}
+
+plan tests => 3 * blocks;
+
+filters { map { $_ => ['eval'] } qw(args params param) };
+
+run {
+    my $block = shift;
+    my $app = MyApp->new(defined $block->args ? (params => $block->args) : ());
+
+    cmp_deeply $app->params    => $block->params;
+    cmp_deeply [ $app->param ] => $block->param;
+    is $app->param('foo') => $block->foo;
+};
+
+__END__
+=== undefined
+--- params: {}
+--- param: []
+
+=== empty
+--- args: {}
+--- params: {}
+--- param: []
+
+=== init
+--- args: { foo => 10 }
+--- params: { foo => 10 }
+--- param: ['foo']
+--- foo: 10
Index: /lang/perl/MouseX-Param/tags/release-0.01/t/00_compile.t
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/t/00_compile.t (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/t/00_compile.t (revision 28318)
@@ -0,0 +1,3 @@
+use Test::More tests => 1;
+
+use ok 'MouseX::Param';
Index: /lang/perl/MouseX-Param/tags/release-0.01/MANIFEST
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/MANIFEST (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/MANIFEST (revision 28318)
@@ -0,0 +1,70 @@
+Changes
+inc/Module/Install.pm
+inc/Module/Install/AuthorTests.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/TestBase.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
+inc/ok.pm
+inc/Spiffy.pm
+inc/Test/Base.pm
+inc/Test/Base/Filter.pm
+inc/Test/Builder.pm
+inc/Test/Builder/Module.pm
+inc/Test/Deep.pm
+inc/Test/Deep/All.pm
+inc/Test/Deep/Any.pm
+inc/Test/Deep/Array.pm
+inc/Test/Deep/ArrayEach.pm
+inc/Test/Deep/ArrayElementsOnly.pm
+inc/Test/Deep/ArrayLength.pm
+inc/Test/Deep/ArrayLengthOnly.pm
+inc/Test/Deep/Blessed.pm
+inc/Test/Deep/Boolean.pm
+inc/Test/Deep/Cache.pm
+inc/Test/Deep/Cache/Simple.pm
+inc/Test/Deep/Class.pm
+inc/Test/Deep/Cmp.pm
+inc/Test/Deep/Code.pm
+inc/Test/Deep/Hash.pm
+inc/Test/Deep/HashEach.pm
+inc/Test/Deep/HashElements.pm
+inc/Test/Deep/HashKeys.pm
+inc/Test/Deep/HashKeysOnly.pm
+inc/Test/Deep/Ignore.pm
+inc/Test/Deep/Isa.pm
+inc/Test/Deep/ListMethods.pm
+inc/Test/Deep/Methods.pm
+inc/Test/Deep/MM.pm
+inc/Test/Deep/NoTest.pm
+inc/Test/Deep/Number.pm
+inc/Test/Deep/Ref.pm
+inc/Test/Deep/RefType.pm
+inc/Test/Deep/Regexp.pm
+inc/Test/Deep/RegexpMatches.pm
+inc/Test/Deep/RegexpOnly.pm
+inc/Test/Deep/RegexpRef.pm
+inc/Test/Deep/RegexpRefOnly.pm
+inc/Test/Deep/ScalarRef.pm
+inc/Test/Deep/ScalarRefOnly.pm
+inc/Test/Deep/Set.pm
+inc/Test/Deep/Shallow.pm
+inc/Test/Deep/Stack.pm
+inc/Test/Deep/String.pm
+inc/Test/More.pm
+lib/MouseX/Param.pm
+Makefile.PL
+MANIFEST			This list of files
+META.yml
+README
+t/00_compile.t
+t/01_basic.t
+xt/01_pod.t
+xt/02_podcoverage.t
+xt/03_podspell.t
+xt/04_dependencies.t
Index: /lang/perl/MouseX-Param/tags/release-0.01/lib/MouseX/Param.pm
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/lib/MouseX/Param.pm (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/lib/MouseX/Param.pm (revision 28318)
@@ -0,0 +1,85 @@
+package MouseX::Param;
+
+use 5.8.1;
+use Mouse::Role;
+
+our $VERSION = '0.01';
+
+has 'params' => (
+    is      => 'rw',
+    isa     => 'HashRef',
+    lazy    => 1,
+    default => sub { +{} },
+);
+
+sub param {
+    my $self = shift;
+
+    return keys %{ $self->params } if @_ == 0;
+    return $self->params->{+shift} if @_ == 1;
+
+    my %params = @_;
+    while (my ($key, $value) = each %params) {
+        $self->params->{$key} = $value;
+    }
+}
+
+no Mouse::Role; 1;
+
+=head1 NAME
+
+MouseX::Param - A Mouse role for manipulating params
+
+=head1 SYNOPSIS
+
+    package MyApp;
+    use Mouse;
+    with 'MouseX::Param';
+
+    package main;
+
+    my $app = MyApp->new(params => {
+        foo => 10,
+        bar => 20,
+    });
+
+    # getting params
+    $app->param('foo'); # 10
+
+    # getting list of params
+    $app->param(); # foo, bar
+
+    # setting params
+    $app->param(foo => 30, bar => 40);
+
+=head1 DESCRIPTION
+
+MouseX::Param is a simple Mouse role which provides a L<CGI> like
+C<param> method.
+
+=head1 METHODS
+
+=head2 param
+
+=head1 PROPERTIES
+
+=head2 params
+
+=head1 AUTHOR
+
+NAKAGAWA Masaki E<lt>masaki@cpan.orgE<gt>
+
+=head1 THANKS TO
+
+Stevan Little, L<MooseX::Param/AUTHOR>
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<Mouse>, L<MooseX::Param>
+
+=cut
Index: /lang/perl/MouseX-Param/tags/release-0.01/Makefile.PL
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/Makefile.PL (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/Makefile.PL (revision 28318)
@@ -0,0 +1,15 @@
+use inc::Module::Install;
+name 'MouseX-Param';
+all_from 'lib/MouseX/Param.pm';
+
+requires 'Mouse' => '0.14';
+
+tests 't/*.t';
+test_requires 'Test::More';
+test_requires 'ok';
+test_requires 'Test::Deep';
+author_tests 'xt';
+use_test_base;
+
+auto_include_deps;
+WriteAll;
Index: /lang/perl/MouseX-Param/tags/release-0.01/Changes
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/Changes (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/Changes (revision 28318)
@@ -0,0 +1,4 @@
+Revision history for Perl extension MouseX::Param
+
+0.01
+        - original version
Index: /lang/perl/MouseX-Param/tags/release-0.01/MANIFEST.SKIP
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/MANIFEST.SKIP (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/MANIFEST.SKIP (revision 28318)
@@ -0,0 +1,18 @@
+\bRCS\b
+\bCVS\b
+^MANIFEST\.
+^Makefile$
+~$
+^#
+\.old$
+^blib/
+^pm_to_blib
+^MakeMaker-\d
+\.gz$
+\.cvsignore
+^t/9\d_.*\.t
+^t/perlcritic
+\.svn/
+\.shipit
+\._
+\.DS_Store
Index: /lang/perl/MouseX-Param/tags/release-0.01/xt/02_podcoverage.t
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/xt/02_podcoverage.t (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/xt/02_podcoverage.t (revision 28318)
@@ -0,0 +1,4 @@
+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();
Index: /lang/perl/MouseX-Param/tags/release-0.01/xt/01_pod.t
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/xt/01_pod.t (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/xt/01_pod.t (revision 28318)
@@ -0,0 +1,4 @@
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
Index: /lang/perl/MouseX-Param/tags/release-0.01/xt/03_podspell.t
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/xt/03_podspell.t (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/xt/03_podspell.t (revision 28318)
@@ -0,0 +1,24 @@
+use Test::More;
+use Config ();
+use File::Spec ();
+eval "use Test::Spelling";
+plan skip_all => "Test::Spelling is not installed." if $@;
+
+my $spell;
+for my $path (split /$Config::Config{path_sep}/ => $ENV{PATH}) {
+    -x File::Spec->catfile($path => 'spell')  and $spell = 'spell',       last;
+    -x File::Spec->catfile($path => 'ispell') and $spell = 'ispell -l',   last;
+    -x File::Spec->catfile($path => 'aspell') and $spell = 'aspell list', last;
+}
+plan skip_all => "spell/ispell/aspell are not installed." unless $spell;
+
+add_stopwords(map { split /[\s\:\-]/ } <DATA>);
+set_spell_cmd($spell) if $spell;
+local $ENV{LANG} = 'C';
+all_pod_files_spelling_ok('lib');
+__DATA__
+NAKAGAWA Masaki
+MouseX::Param
+Stevan Little
+param
+params
Index: /lang/perl/MouseX-Param/tags/release-0.01/xt/04_dependencies.t
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/xt/04_dependencies.t (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/xt/04_dependencies.t (revision 28318)
@@ -0,0 +1,4 @@
+use Test::More;
+eval "use Test::Dependencies exclude => ['MouseX::Param']";
+plan skip_all => "Test::Dependencies required for testing dependencies" if $@;
+ok_dependencies();
Index: /lang/perl/MouseX-Param/tags/release-0.01/README
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/README (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/README (revision 28318)
@@ -0,0 +1,27 @@
+This is Perl module MouseX::Param.
+
+INSTALLATION
+
+MouseX::Param installation is straightforward. If your CPAN shell is set up,
+you should just be able to do
+
+    % cpan MouseX::Param
+
+Download it, unpack it, then build it as per the usual:
+
+    % perl Makefile.PL
+    % make && make test
+
+Then install it:
+
+    % make install
+
+DOCUMENTATION
+
+MouseX::Param documentation is available as in POD. So you can do:
+
+    % perldoc MouseX::Param
+
+to read the documentation online with your favorite pager.
+
+NAKAGAWA Masaki
Index: /lang/perl/MouseX-Param/tags/release-0.01/.shipit
===================================================================
--- /lang/perl/MouseX-Param/tags/release-0.01/.shipit (revision 28318)
+++ /lang/perl/MouseX-Param/tags/release-0.01/.shipit (revision 28318)
@@ -0,0 +1,2 @@
+steps = FindVersion, ChangeVersion, CheckChangeLog, Manifest, DistTest, Commit, Tag, MakeDist, UploadCPAN, DistClean
+svk.tagpattern = release-%v