initial commit

12 files changed, 141 insertions, 0 deletions

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..8c897b7
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,9 @@
+cover_db
+META.yml
+Makefile
+blib
+inc
+pm_to_blib
+MANIFEST
+Makefile.old
+MANIFEST.SKIP
\ No newline at end of file
diff --git a/.shipit b/.shipit
new file mode 100644
index 0000000..e28b215
--- /dev/null
+++ b/.shipit
@@ -0,0 +1,6 @@
+steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist
+git.tagpattern = release-%v
+git.push_to = release
+
+CheckChangeLog.files = Changes
+MakeDist.destination = ~/code/distribs/
diff --git a/Changes b/Changes
new file mode 100644
index 0000000..c9cf7ae
--- /dev/null
+++ b/Changes
@@ -0,0 +1,4 @@
+Revision history for Perl extension MooseX::MethodPrivate
+
+0.01    Mon Jun 29 18:03:15 2009
+        - original version
diff --git a/Makefile.PL b/Makefile.PL
new file mode 100644
index 0000000..9decef2
--- /dev/null
+++ b/Makefile.PL
@@ -0,0 +1,16 @@
+use inc::Module::Install;
+name 'MooseX-MethodPrivate';
+all_from 'lib/MooseX/MethodPrivate.pm';
+
+# requires '';
+requires 'Moose';
+requires 'Test::Class';
+requires 'Test::Exception';
+
+tests 't/*.t';
+author_tests 'xt';
+
+build_requires 'Test::More';
+use_test_base;
+auto_include;
+WriteAll;
diff --git a/README b/README
new file mode 100644
index 0000000..5cebcb0
--- /dev/null
+++ b/README
@@ -0,0 +1,27 @@
+This is Perl module MooseX::MethodPrivate.
+
+INSTALLATION
+
+MooseX::MethodPrivate installation is straightforward. If your CPAN shell is set up,
+you should just be able to do
+
+    % cpan MooseX::MethodPrivate
+
+Download it, unpack it, then build it as per the usual:
+
+    % perl Makefile.PL
+    % make && make test
+
+Then install it:
+
+    % make install
+
+DOCUMENTATION
+
+MooseX::MethodPrivate documentation is available as in POD. So you can do:
+
+    % perldoc MooseX::MethodPrivate
+
+to read the documentation online with your favorite pager.
+
+franck cuny
diff --git a/lib/MooseX/MethodPrivate.pm b/lib/MooseX/MethodPrivate.pm
new file mode 100644
index 0000000..f7801c0
--- /dev/null
+++ b/lib/MooseX/MethodPrivate.pm
@@ -0,0 +1,32 @@
+package MooseX::MethodPrivate;
+
+use Moose;
+our $VERSION = '0.01';
+
+1;
+__END__
+
+=head1 NAME
+
+MooseX::MethodPrivate -
+
+=head1 SYNOPSIS
+
+  use MooseX::MethodPrivate;
+
+=head1 DESCRIPTION
+
+MooseX::MethodPrivate is
+
+=head1 AUTHOR
+
+franck cuny E<lt>franck.cuny {at} rtgi.frE<gt>
+
+=head1 SEE ALSO
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/t/00_compile.t b/t/00_compile.t
new file mode 100644
index 0000000..3cfe260
--- /dev/null
+++ b/t/00_compile.t
@@ -0,0 +1,4 @@
+use strict;
+use Test::More tests => 1;
+
+BEGIN { use_ok 'MooseX::MethodPrivate' }
diff --git a/xt/02_perlcritic.t b/xt/02_perlcritic.t
new file mode 100644
index 0000000..b977df8
--- /dev/null
+++ b/xt/02_perlcritic.t
@@ -0,0 +1,8 @@
+use strict;
+use Test::More;
+eval {
+    require Test::Perl::Critic;
+    Test::Perl::Critic->import( -profile => 'xt/perlcriticrc');
+};
+plan skip_all => "Test::Perl::Critic is not installed." if $@;
+all_critic_ok('lib');
diff --git a/xt/03_pod.t b/xt/03_pod.t
new file mode 100644
index 0000000..437887a
--- /dev/null
+++ b/xt/03_pod.t
@@ -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();
diff --git a/xt/perlcriticrc b/xt/perlcriticrc
new file mode 100644
index 0000000..fa96144
--- /dev/null
+++ b/xt/perlcriticrc
@@ -0,0 +1,2 @@
+[TestingAndDebugging::ProhibitNoStrict]
+allow=refs
diff --git a/xt/run.t b/xt/run.t
new file mode 100644
index 0000000..88e3cd5
--- /dev/null
+++ b/xt/run.t
@@ -0,0 +1,4 @@
+use lib 'xt/tests';
+use Test::MooseX::MethodPrivate;
+
+Test::Class->runtests;
diff --git a/xt/tests/Test/MooseX/MethodPrivate.pm b/xt/tests/Test/MooseX/MethodPrivate.pm
new file mode 100644
index 0000000..cb8dc4c
--- /dev/null
+++ b/xt/tests/Test/MooseX/MethodPrivate.pm
@@ -0,0 +1,25 @@
+package Test::MooseX::MethodPrivate;
+
+use strict;
+use warnings;
+use base 'Test::Class';
+use Test::Exception;
+use Test::More;
+
+sub class { 'MooseX::MethodPrivate' }
+
+sub startup : Tests(startup => 1) {
+    my $test = shift;
+    use_ok $test->class, "use ok";
+}
+
+sub shutdown : Tests(shutdown) {
+    my $test = shift;
+}
+
+sub constructor : Tests(1) {
+    my $test = shift;
+    can_ok $test->class, 'new';
+}
+
+1;