Catalyst-View-Mason-0.19/000755 000765 000024 00000000000 12450344204 017245 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/Changes000644 000765 000024 00000011356 12450343620 020547 0ustar00jnapiorkowskistaff000000 000000 Revision history for Perl extension Catalyst::View::Mason. 0.19 Mon, 29 Dec 2014 16:00 Central Time (USA) - Minor changes to the test suite so that code compiles and runs on modern Catalyst. No other guarantees. 0.18 Sat, 22 Aug 2009 21:17:52 +0200 - Make it work with Catalyst::Runtime 5.80010. - Fix warnings in the test suite. 0.17 Sun, 29 Mar 2009 21:26:35 +0200 Florian Ragwitz (6): Improvement for pod generated by the helper. Make the generated views use parent instead of base. Properly use default_view in the tests. Don't render things twice in the render tests. Simplify testcover Makefile target. Switch the default for use_match to the new behaviour. Justin Hunter (1): Switch from NEXT to MRO::Compat. 0.16 Wed, 28 May 2008 15:43:23 +0200 Florian Ragwitz (19): Don't runn t/{kwalitee,notabs,pod,podcoverage,strict}.t unless AUTHOR_TEST is set. Add a fake shebang for t/{01use,pod,podcoverage}.t. Add an authortest target to the Makefile. Test always_append_template_extension. Document always_append_template_extension. Implement always_append_template_extension. Add a test for filename portability. Add examples and default value to the docs for all options. Add a test for data_dir defaults to be different for different applications and users. Build the data_dir default from the application name and the user id. Documentation fix. Catalyst::Component::new gets $app, not $c. Remove the file portability test. Move the release tests to xt and use M::I::ExtraTests to run them during make disttest only. Specify license in Makefile.PL. Add provides field to META.yml. Documentation update. Update README. Specify author in Makefile.PL as M::I fails to extract it. 0.15 Tue, 16 Oct 2007 11:31:30 +0200 - Factor out get_component_path to allow better subclassing (SCHWIGON). - Test the above. 0.14 Mon, 15 Oct 2007 15:14:26 +0200 - Test comp_root stringification. - Allow array ref comp_roots. - Improve POD. - Make the testcover target depend on pm_to_blib. - Add a Makefile target for generating README. - Update README. - Silence some warnings in t/helper.t if Test::File isn't present. - Fix a POD typo. - Don't use auto_install in Makefile.PL. 0.13 Tue, 21 Aug 2007 17:12:11 +0200 - Make t/exception.t not fail if Test::MockModule isn't installed by fixing the number of tests to skip. 0.12 Mon, 20 Aug 2007 17:32:39 +0200 - Clearify documentation on use_match (Hans Dieter Pearcey ). - Deprecate use_match => 1; now raises a warning. - Make modules generated by the helper use warnings. - Document template_extension. - Properly stringify comp_root and data_dir so mason doesn't fail when objects which were ought to be stringified are passed to it. 0.11 Sun, 22 Jul 2007 22:51:55 +0200 - Properly set VERSION for the helper so CPAN can index us currently. 0.10 Sun, 22 Jul 2007 22:40:22 +0200 - Upload 0.09_07 as 0.10. 0.09_07 Thu, 19 Jul 2007 17:58:37 +0200 - Skip t/helper.t if Catalyst::Helper isn't around. 0.09_06 Sun, 15 Jul 2007 15:56:34 +0200 - Minor code cleanups - Add a template_extension config var (requested by SCHWIGON). 0.09_05 Fri, 25 May 2007 16:15:45 +0200 - Try to hide the t/lib modules from PAUSE. 0.09_04 Thu, 24 May 2007 19:37:51 +0200 - Make comp_root guessing work when $c->config->{root} is not a Path::Class instance. 0.09_03 Mon, 21 May 2007 16:24:10 +0200 - Test and implement setting additional mason globals. 0.09_02 Wed, 16 May 2007 17:17:34 +0200 - Better test coverage - Some minor cleanups. - use warnings; 0.09_01 Tue, 15 May 2007 23:25:52 +0200 - Fixed default content type. - Use the component config. - Add a render method. - Use File::Spec to find the tmpdir. - Use Module::Install instead of Module::Build. - Allow to use $c->action instead of $c->req->match to find the template to use. - Add a test suite. 0.08 Xxx Xxx 00 00:00:00 2005 - Fixed Content-Type - Stringify root. 0.07 Wed Apr 27 21:00:00 2005 - updated for Catalyst5 0.06 Sun Mar 20 00:50:21 2005 - bugfix: $c and $name not being set (Henry Laxen) - bugfix: error in documentation - bugfix: running under mod_perl 0.03 Wed Mar 16 17:41:01 2005 - Initial release Catalyst-View-Mason-0.19/inc/000755 000765 000024 00000000000 12450344204 020016 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/lib/000755 000765 000024 00000000000 12450344204 020013 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/Makefile.PL000644 000765 000024 00000001302 12450337247 021224 0ustar00jnapiorkowskistaff000000 000000 use strict; use warnings; use inc::Module::Install 0.87; name 'Catalyst-View-Mason'; all_from 'lib/Catalyst/View/Mason.pm'; author 'Florian Ragwitz '; license 'perl'; requires 'Catalyst' => '5.50'; requires 'HTML::Mason' => 0; requires 'Scalar::Util' => 0; requires 'File::Spec' => 0; requires 'parent' => 0; requires 'MRO::Compat' => 0; auto_provides; extra_tests; resources repository => 'http://dev.catalyst.perl.org/repos/Catalyst/Catalyst-View-Mason/trunk/'; WriteAll; package MY; sub postamble { return <<"EOM" testcover: pm_to_blib \t-HARNESS_PERL_SWITCHES=-MDevel::Cover \$(MAKE) test \tcover README: lib/Catalyst/View/Mason.pm \tpod2text \$< > \$@ EOM } Catalyst-View-Mason-0.19/MANIFEST000644 000765 000024 00000002754 12450344165 020414 0ustar00jnapiorkowskistaff000000 000000 Changes inc/Module/Install.pm inc/Module/Install/Base.pm inc/Module/Install/Can.pm inc/Module/Install/ExtraTests.pm inc/Module/Install/Fetch.pm inc/Module/Install/Makefile.pm inc/Module/Install/Metadata.pm inc/Module/Install/Win32.pm inc/Module/Install/WriteAll.pm lib/Catalyst/Helper/View/Mason.pm lib/Catalyst/View/Mason.pm Makefile.PL MANIFEST This list of files MANIFEST.SKIP META.yml MYMETA.json MYMETA.yml README t/01use.t t/action.t t/appconfig.t t/comp_path.t t/comp_root.t t/comp_root_ref.t t/content_type.t t/data_dir_default.t t/debug.t t/deprecation.t t/exception.t t/extension.t t/extension_always.t t/globals.t t/helper.t t/lib/TestApp.pm t/lib/TestApp/Controller/Root.pm t/lib/TestApp/FakeCtx.pm t/lib/TestApp/FakeLog.pm t/lib/TestApp/root/action_match t/lib/TestApp/root/additional_globals t/lib/TestApp/root/exception t/lib/TestApp/root/foo t/lib/TestApp/root/globals t/lib/TestApp/root/match/foo t/lib/TestApp/root/test t/lib/TestApp/root/test.mas t/lib/TestApp/View/Mason.pm t/lib/TestApp/View/Mason/Appconfig.pm t/lib/TestApp/View/Mason/Comppath.pm t/lib/TestApp/View/Mason/CompRootRef.pm t/lib/TestApp/View/Mason/Extension.pm t/lib/TestApp/View/Mason/ExtensionAlways.pm t/lib/TestApp/View/Mason/Match.pm t/lib/TestApp/View/Mason/NoMatch.pm t/lib/TestApp/View/Mason/Pkgconfig.pm t/lib/TestApp2.pm t/lib/TestApp2/View/Mason.pm t/pkgconfig.t t/render.t t/stringify.t xt/release/kwalitee.t xt/release/notabs.t xt/release/pod.t xt/release/podcoverage.t xt/release/podspelling.t xt/release/strict.t Catalyst-View-Mason-0.19/MANIFEST.SKIP000644 000765 000024 00000000205 12450344163 021144 0ustar00jnapiorkowskistaff000000 000000 ^\. \.bak$ \.swp$ ^Makefile$ ^Makefile.old$ ^Catalyst-View-Mason- ^cover_db\b ^blib\b ^pm_to_blib$ ^t/lib/TestApp/root/var .DS_Store Catalyst-View-Mason-0.19/META.yml000644 000765 000024 00000001315 12450344055 020522 0ustar00jnapiorkowskistaff000000 000000 --- abstract: 'Mason View Class' author: - '=over 4' - 'Florian Ragwitz ' build_requires: ExtUtils::MakeMaker: 6.36 configure_requires: ExtUtils::MakeMaker: 6.36 distribution_type: module dynamic_config: 1 generated_by: 'Module::Install version 1.14' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 name: Catalyst-View-Mason no_index: directory: - inc - t - xt requires: Catalyst: '5.50' File::Spec: 0 HTML::Mason: 0 MRO::Compat: 0 Scalar::Util: 0 parent: 0 resources: license: http://dev.perl.org/licenses/ repository: http://dev.catalyst.perl.org/repos/Catalyst/Catalyst-View-Mason/trunk/ version: '0.19' Catalyst-View-Mason-0.19/MYMETA.json000644 000765 000024 00000002025 12450344055 021137 0ustar00jnapiorkowskistaff000000 000000 { "abstract" : "Mason View Class", "author" : [ "=over 4, Florian Ragwitz " ], "dynamic_config" : 0, "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240", "license" : [ "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : "2" }, "name" : "Catalyst-View-Mason", "no_index" : { "directory" : [ "t", "inc" ] }, "prereqs" : { "build" : { "requires" : { "ExtUtils::MakeMaker" : "6.36" } }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : { "Catalyst" : "5.50", "File::Spec" : "0", "HTML::Mason" : "0", "MRO::Compat" : "0", "Scalar::Util" : "0", "parent" : "0" } } }, "release_status" : "stable", "version" : "0.19" } Catalyst-View-Mason-0.19/MYMETA.yml000644 000765 000024 00000001125 12450344055 020767 0ustar00jnapiorkowskistaff000000 000000 --- abstract: 'Mason View Class' author: - '=over 4, Florian Ragwitz ' build_requires: ExtUtils::MakeMaker: '6.36' configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: Catalyst-View-Mason no_index: directory: - t - inc requires: Catalyst: '5.50' File::Spec: '0' HTML::Mason: '0' MRO::Compat: '0' Scalar::Util: '0' parent: '0' version: '0.19' Catalyst-View-Mason-0.19/README000644 000765 000024 00000007226 12450337247 020145 0ustar00jnapiorkowskistaff000000 000000 NAME Catalyst::View::Mason - Mason View Class SYNOPSIS # use the helper script/create.pl view Mason Mason # lib/MyApp/View/Mason.pm package MyApp::View::Mason; use base 'Catalyst::View::Mason'; __PACKAGE__->config(use_match => 0); 1; $c->forward('MyApp::View::Mason'); DESCRIPTION Want to use a Mason component in your views? No problem! Catalyst::View::Mason comes to the rescue. EXAMPLE From the Catalyst controller: $c->stash->{name} = 'Homer'; # Pass a scalar $c->stash->{extra_info} = { last_name => 'Simpson', children => [qw(Bart Lisa Maggie)] }; # A ref works too From the Mason template: <%args> $name $extra_info

Your name is <% $name %> <% $extra_info->{last_name} %>

Your children are:

    % foreach my $child (@{$extra_info->{children}}) {
  • <% $child %>
    • % }
METHODS new($app, \%config) get_component_path Returns the component path from $c->stash->{template} or $c->request->match or $c->action (depending on the use_match setting). process Renders the component specified in $c->stash->{template} or $c->request->match or $c->action (depending on the use_match setting) to $c->response->body. Note that the component name must be absolute, or is converted to absolute (i.e., a / is added to the beginning if it doesn't start with one). Mason global variables $base, $c, and $name are automatically set to the base, context, and name of the app, respectively. render($c, $component_path, \%args) Renders the given template and returns output, or a HTML::Mason::Exception object upon error. The template variables are set to %$args if $args is a hashref, or $c->stash otherwise. config This allows you to to pass additional settings to the HTML::Mason::Interp constructor or to set the options as below: "template_extension" This string is appended (if present) to "$c->action" when generating a template path. Defaults to an empty string. Example: "template_extension => '.html'" "always_append_template_extension" Set this to a true value if you want "template_extension" to be appended to the component path even if it was explicitly set. Defaults to 0. Example: "always_append_template_extension => 1" "use_match" Use "$c->request->match" instead of "$c->action" to determine which template to use if "$c->stash->{template}" isn't set. This option is deprecated and exists for backward compatibility only. Currently defaults to 0. Old code should set this to 1 to avoid breakage. Example: "use_match => 0" The default HTML::Mason::Interp config options are as follows: "comp_root" "$app->config->root" "data_dir" "File::Spec->catdir( File::Spec->tmpdir, sprintf('%s_%d_mason_data_dir', $app, $<) )" "allow_globals" "qw/$c $name $base/" If you add additional allowed globals those will be appended to the list of default globals. SEE ALSO Catalyst, HTML::Mason, "Using Mason from a Standalone Script" in HTML::Mason::Admin AUTHORS Andres Kievsky "ank@cpan.org" Sebastian Riedel "sri@cpan.org" Marcus Ramberg Florian Ragwitz "rafl@debian.org" Justin Hunter "justin.d.hunter@gmail.com" COPYRIGHT This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself. Catalyst-View-Mason-0.19/t/000755 000765 000024 00000000000 12450344204 017510 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/xt/000755 000765 000024 00000000000 12450344204 017700 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/xt/release/000755 000765 000024 00000000000 12450344204 021320 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/xt/release/kwalitee.t000644 000765 000024 00000000217 12450337247 023323 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More; eval 'use Test::Kwalitee'; plan skip_all => 'Test::Kwalitee not installed; skipping' if $@; Catalyst-View-Mason-0.19/xt/release/notabs.t000644 000765 000024 00000000246 12450337247 023006 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More; eval 'use Test::NoTabs'; plan skip_all => 'Test::NoTabs not installed; skipping' if $@; all_perl_files_ok('lib'); Catalyst-View-Mason-0.19/xt/release/pod.t000644 000765 000024 00000000225 12450337247 022277 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More; eval 'use Test::Pod 1.14'; plan skip_all => 'Test::Pod 1.14 required' if $@; all_pod_files_ok(); Catalyst-View-Mason-0.19/xt/release/podcoverage.t000644 000765 000024 00000000254 12450337247 024015 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More; eval 'use Test::Pod::Coverage 1.04'; plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@; all_pod_coverage_ok(); Catalyst-View-Mason-0.19/xt/release/podspelling.t000644 000765 000024 00000000376 12450337247 024044 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More; eval 'use Test::Spelling'; plan skip_all => 'Test::Spelling required' if $@; set_spell_cmd('aspell list'); add_stopwords(); all_pod_files_spelling_ok(); __DATA__ Kievsky Ragwitz Ramberg Riedel Catalyst-View-Mason-0.19/xt/release/strict.t000644 000765 000024 00000000351 12450337247 023025 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More; eval 'use Test::Strict'; plan skip_all => 'Test::Strict not installed; skipping' if $@; { no warnings 'once'; $Test::Strict::TEST_WARNINGS = 1; } all_perl_files_ok('lib'); Catalyst-View-Mason-0.19/t/01use.t000644 000765 000024 00000000156 12450337247 020645 0ustar00jnapiorkowskistaff000000 000000 #!perl use Test::More tests => 2; use_ok('Catalyst::View::Mason'); use_ok('Catalyst::Helper::View::Mason'); Catalyst-View-Mason-0.19/t/action.t000644 000765 000024 00000000360 12450337247 021162 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 2; use FindBin; use lib "$FindBin::Bin/lib"; use_ok('Catalyst::Test', 'TestApp'); my $request = request('/action_match/foo?view=NoMatch'); ok($request->is_success, 'request ok'); Catalyst-View-Mason-0.19/t/appconfig.t000644 000765 000024 00000000745 12450337247 021662 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 5; use FindBin; use lib "$FindBin::Bin/lib"; use_ok('Catalyst::Test', 'TestApp'); my $response = request('/test?view=Appconfig'); ok($response->is_success, 'request ok'); is($response->content, TestApp->config->{default_message}, 'message ok'); $response = request('/test?view=Appconfig&message=<>'); ok($response->is_success, 'request with message ok'); is($response->content, '<<foo>>', 'message ok'); Catalyst-View-Mason-0.19/t/comp_path.t000644 000765 000024 00000000450 12450337247 021657 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 3; use FindBin; use lib "$FindBin::Bin/lib"; use_ok('Catalyst::Test', 'TestApp'); my $request = request('/comp_path?view=Comppath'); ok($request->is_success, 'request ok'); is($request->content, "param: bar\n", 'used /foo component'); Catalyst-View-Mason-0.19/t/comp_root.t000644 000765 000024 00000000660 12450337247 021711 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 4; use FindBin; use lib "$FindBin::Bin/lib"; { no warnings 'once'; $::use_root_string = 1; } use_ok('Catalyst::Test', 'TestApp', 'foo'); ok(!ref TestApp->config->{root}, 'root is a plain scalar'); my $response = request('/test?view=Pkgconfig'); ok($response->is_success, 'request ok'); is($response->content, TestApp->config->{default_message}, 'message ok'); Catalyst-View-Mason-0.19/t/comp_root_ref.t000644 000765 000024 00000001601 12450337247 022541 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Scalar::Util qw/blessed/; use Test::More; eval 'use Test::Exception'; plan skip_all => 'Test::Exception required' if $@; plan tests => 5; use FindBin; use lib "$FindBin::Bin/lib"; use TestApp::FakeCtx; use TestApp::View::Mason::CompRootRef; my @comp_roots = ( { a => 1, }, \do { my $o = 1 }, sub { }, \*STDIN, ); my $c = TestApp::FakeCtx->new; for my $comp_root (@comp_roots) { my $str = $comp_root . q//; throws_ok(sub { TestApp::View::Mason::CompRootRef->new($c, {comp_root => $comp_root}); }, qr/comp_root path '\Q$str\E'/, 'exception when passing '. ref($comp_root) .' reference as comp_root'); } lives_ok(sub { TestApp::View::Mason::CompRootRef->new($c, { comp_root => [ [MAIN => $FindBin::Bin] ], }); }, "array root as comp_root doesn't get stringified"); Catalyst-View-Mason-0.19/t/content_type.t000644 000765 000024 00000000747 12450337247 022431 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 5; use FindBin; use lib "$FindBin::Bin/lib"; use_ok('Catalyst::Test', 'TestApp'); my $response = request('/test'); ok($response->is_success, 'request ok'); is($response->header('content-type'), 'text/html; charset=utf-8', 'default content type ok'); $response = request('/test_content_type'); ok($response->is_success, 'request ok'); is($response->header('content-type'), 'text/html; charset=iso8859-1', 'content type ok'); Catalyst-View-Mason-0.19/t/data_dir_default.t000644 000765 000024 00000000530 12450337247 023157 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 3; use FindBin; use lib "$FindBin::Bin/lib"; my @apps = qw/TestApp TestApp2/; use_ok($_) for @apps; my @data_dirs = map { my $pkg = $_ . '::View::Mason'; $pkg->config->{data_dir} } @apps; isnt($data_dirs[0], $data_dirs[1], 'different apps get different data_dir defaults'); Catalyst-View-Mason-0.19/t/debug.t000644 000765 000024 00000001021 12450337247 020766 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More; eval "use IO::Capture::Stderr"; plan skip_all => "IO::Capture::Stderr required for debug testing" if $@; plan tests => 3; use FindBin; use lib "$FindBin::Bin/lib"; $ENV{CATALYST_DEBUG} = 1; my $capture = IO::Capture::Stderr->new; $capture->start; use_ok('Catalyst::Test', 'TestApp'); my $response = request('/test'); $capture->stop; ok($response->is_success, 'request ok'); like(join('', $capture->read), qr{\[debug\] Rendering component "/test"}, 'debug message ok'); Catalyst-View-Mason-0.19/t/deprecation.t000644 000765 000024 00000001145 12450337247 022204 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 4; use FindBin; use lib "$FindBin::Bin/lib"; use TestApp::FakeLog; my @warnings; my $mock_log = TestApp::FakeLog->new(\@warnings); { no warnings 'once'; $::fake_log = $mock_log; $::setup_match = 1; } use_ok('Catalyst::Test', 'TestApp'); ok(scalar @warnings, 'loading component which sets use_match to something true causes a warning'); like($warnings[0], qr/^DEPRECATION WARNING/, 'the warning is a deprecation warning'); like($warnings[0], qr/TestApp::View::Mason::Match/, 'the warning contains the name of the component causing it'); Catalyst-View-Mason-0.19/t/exception.t000644 000765 000024 00000001225 12450337247 021704 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 4; use FindBin; use lib "$FindBin::Bin/lib"; use_ok('Catalyst::Test', 'TestApp'); { my $response = request('/exception'); ok(!$response->is_success, 'request fails'); } SKIP: { eval 'use Test::MockModule'; skip 'Test::MockModule required', 2 if $@; my $mock = Test::MockModule->new('HTML::Mason::Interp'); $mock->mock(exec => sub { die bless \do { my $o }, 'FakeException' }); my $response = request('/exception'); ok($response->is_success, 'request succeeds'); like($response->content, qr/^FakeException=/, 'request content contains stringified exception'); } Catalyst-View-Mason-0.19/t/extension.t000644 000765 000024 00000000724 12450337247 021725 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 5; use FindBin; use lib "$FindBin::Bin/lib"; use_ok('Catalyst::Test', 'TestApp'); my $response = request('/test?view=Appconfig'); ok($response->is_success, 'request ok'); is($response->content, TestApp->config->{default_message}, 'message ok'); $response = request('/test?view=Extension'); ok($response->is_success, 'request ok'); is($response->content, 'template extension', 'used template extension'); Catalyst-View-Mason-0.19/t/extension_always.t000644 000765 000024 00000000764 12450337247 023311 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 5; use FindBin; use lib "$FindBin::Bin/lib"; use_ok('Catalyst::Test', 'TestApp'); my $response = request('/test_set_template?view=AppConfig'); ok($response->is_success, 'request ok'); is($response->content, TestApp->config->{default_message}, 'message ok'); $response = request('/test_set_template?view=ExtensionAlways'); ok($response->is_success, 'request ok'); is($response->content, 'template extension', 'used template extension'); Catalyst-View-Mason-0.19/t/globals.t000644 000765 000024 00000001745 12450337247 021340 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 11; use FindBin; use lib "$FindBin::Bin/lib"; use_ok('Catalyst::Test', 'TestApp'); my $response = request('/globals?view=PkgConfig'); ok($response->is_success, 'request ok'); like($response->content, qr{\b c \s+ => \s+ TestApp \b}x, 'global c'); like($response->content, qr{\b base \s+ => \s+ http:// \b}x, 'global base'); like($response->content, qr{\b name \s+ => \s+ TestApp \b}x, 'global name'); $response = request('/additional_globals?view=PkgConfig'); ok($response->is_success, 'request ok'); like($response->content, qr{\b c \s+ => \s+ TestApp \b}x, 'global c'); like($response->content, qr{\b base \s+ => \s+ http:// \b}x, 'global base'); like($response->content, qr{\b name \s+ => \s+ TestApp \b}x, 'global name'); like($response->content, qr{\b foo \s+ => \s+ 123 \b}x, 'global foo'); like($response->content, qr{\b bar \s+ => \s+ \[moo, \s+ kooh\] }x, 'global bar'); Catalyst-View-Mason-0.19/t/helper.t000644 000765 000024 00000002260 12450337247 021165 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Cwd; use File::Path; use File::Spec::Functions qw/catdir catfile/; use Test::More; eval 'use Test::File'; plan skip_all => 'Test::File required' if $@; eval 'use Test::Exception'; plan skip_all => 'Test::Exception required' if $@; eval 'use Catalyst::Helper'; plan skip_all => 'Catalyst::Helper required' if $@; plan tests => 4; my $app_name = 'TestApp'; my $old_cwd = cwd(); my $test_dir = catdir(qw/t var/); if (!-d $test_dir) { mkdir $test_dir or BAIL_OUT("Failed to create test directory: $!"); } chdir $test_dir; my $helper = Catalyst::Helper->new; $helper->mk_app($app_name); $FindBin::Bin = $FindBin::Bin = catdir($app_name, 'lib'); $helper->mk_component($app_name, 'view', 'Mason', 'Mason'); my $module = catfile($app_name, 'lib', $app_name, 'View', 'Mason.pm'); file_exists_ok($module, 'module created'); lives_ok(sub { do $module; }, 'module compiles fine'); ok(!TestApp::View::Mason->config->{use_match}, 'module sets use_match to false'); ok(TestApp::View::Mason->isa('Catalyst::View::Mason'), 'module inherits from C::V::Mason'); END { if (defined $old_cwd) { chdir $old_cwd; rmtree($test_dir); } } Catalyst-View-Mason-0.19/t/lib/000755 000765 000024 00000000000 12450344204 020256 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/t/pkgconfig.t000644 000765 000024 00000000731 12450337247 021656 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 5; use FindBin; use lib "$FindBin::Bin/lib"; use_ok('Catalyst::Test', 'TestApp'); my $response = request('/test?view=Pkgconfig'); ok($response->is_success, 'request ok'); is($response->content, TestApp->config->{default_message}, 'message ok'); $response = request('/test?view=Pkgconfig&message=<>'); ok($response->is_success, 'request with message ok'); is($response->content, '<>', 'message ok'); Catalyst-View-Mason-0.19/t/render.t000644 000765 000024 00000000766 12450337247 021176 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 5; use FindBin; use lib "$FindBin::Bin/lib"; use_ok('Catalyst::Test', 'TestApp'); my $response = request('/render?template=foo¶m=foo'); ok($response->is_success, 'request ok'); like($response->content, qr/param: foo/, 'message ok'); $response = request('/render?template=does_not_exist'); ok(!$response->is_success, 'request ok'); like($response->content, qr{could not find component for initial path '/does_not_exist'}, 'message ok'); Catalyst-View-Mason-0.19/t/stringify.t000644 000765 000024 00000000730 12450337247 021724 0ustar00jnapiorkowskistaff000000 000000 #!perl use strict; use warnings; use Test::More tests => 4; use FindBin; use lib "$FindBin::Bin/lib"; { no warnings 'once'; $::use_path_class = 1; } use_ok('Catalyst::Test', 'TestApp'); ok(!ref TestApp::View::Mason::Pkgconfig->config->{comp_root}, 'comp_root got stringified'); ok(!ref TestApp::View::Mason::Pkgconfig->config->{data_dir}, 'data_dir got stringified'); my $response = request('/test?view=Pkgconfig'); ok($response->is_success, 'request ok'); Catalyst-View-Mason-0.19/t/lib/TestApp/000755 000765 000024 00000000000 12450344204 021636 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/t/lib/TestApp.pm000644 000765 000024 00000001526 12450341447 022206 0ustar00jnapiorkowskistaff000000 000000 package TestApp; use strict; use warnings; use Scalar::Util qw/blessed/; use Catalyst; our $VERSION = '0.01'; __PACKAGE__->config( name => 'TestApp', default_view => 'Mason::Appconfig', default_message => 'hi', 'View::Mason::Appconfig' => { default_escape_flags => ['h'], use_match => 0, }, ); if ($::use_root_string) { __PACKAGE__->config(root => __PACKAGE__->config->{root}->stringify); } __PACKAGE__->config( setup_components => { except => [ 'TestApp::View::Mason::CompRootRef', ($::setup_match ? () : 'TestApp::View::Mason::Match'), ], }, ); __PACKAGE__->log( $::fake_log || Catalyst::Log->new(qw/debug info error fatal/) ); __PACKAGE__->setup; 1; Catalyst-View-Mason-0.19/t/lib/TestApp2/000755 000765 000024 00000000000 12450344204 021720 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/t/lib/TestApp2.pm000644 000765 000024 00000000154 12450337247 022267 0ustar00jnapiorkowskistaff000000 000000 package TestApp2; use strict; use warnings; use Catalyst; our $VERSION = '0.01'; __PACKAGE__->setup; 1; Catalyst-View-Mason-0.19/t/lib/TestApp2/View/000755 000765 000024 00000000000 12450344204 022632 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/t/lib/TestApp2/View/Mason.pm000644 000765 000024 00000000223 12450337247 024253 0ustar00jnapiorkowskistaff000000 000000 package TestApp2::View::Mason; use strict; use warnings; use base qw/Catalyst::View::Mason/; __PACKAGE__->config( use_match => 0, ); 1; Catalyst-View-Mason-0.19/t/lib/TestApp/Controller/000755 000765 000024 00000000000 12450344204 023761 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/t/lib/TestApp/FakeCtx.pm000644 000765 000024 00000000413 12450337247 023530 0ustar00jnapiorkowskistaff000000 000000 package TestApp::FakeCtx; use strict; use warnings; use TestApp::FakeLog; use base qw/Catalyst/; sub new { my ($class) = @_; my $self = bless {}, $class; $self->log( TestApp::FakeLog->new([]) ); return $self; } sub config { return {}; } 1; Catalyst-View-Mason-0.19/t/lib/TestApp/FakeLog.pm000644 000765 000024 00000000626 12450337247 023521 0ustar00jnapiorkowskistaff000000 000000 package TestApp::FakeLog; use strict; use warnings; use MRO::Compat; use base qw/Catalyst::Log/; sub new { my ($self, $warnings_ref, @args) = @_; $self = $self->next::method(@args); $self->{_warnings_ref} = $warnings_ref; return $self; } sub warn { my ($self, $msg) = @_; push @{ $self->{_warnings_ref} }, $msg; } *debug = *info = *error = *fatal = *is_debug = sub { 1 }; 1; Catalyst-View-Mason-0.19/t/lib/TestApp/root/000755 000765 000024 00000000000 12450344204 022621 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/t/lib/TestApp/View/000755 000765 000024 00000000000 12450344204 022550 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/t/lib/TestApp/View/Mason/000755 000765 000024 00000000000 12450344204 023625 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/t/lib/TestApp/View/Mason.pm000644 000765 000024 00000000222 12450337247 024170 0ustar00jnapiorkowskistaff000000 000000 package TestApp::View::Mason; use strict; use warnings; use base qw/Catalyst::View::Mason/; __PACKAGE__->config( use_match => 0, ); 1; Catalyst-View-Mason-0.19/t/lib/TestApp/View/Mason/Appconfig.pm000644 000765 000024 00000000152 12450337247 026100 0ustar00jnapiorkowskistaff000000 000000 package TestApp::View::Mason::Appconfig; use strict; use warnings; use base 'Catalyst::View::Mason'; 1; Catalyst-View-Mason-0.19/t/lib/TestApp/View/Mason/Comppath.pm000644 000765 000024 00000000300 12450337247 025740 0ustar00jnapiorkowskistaff000000 000000 package TestApp::View::Mason::Comppath; use strict; use warnings; use base qw/Catalyst::View::Mason/; __PACKAGE__->config(use_match => 0); sub get_component_path { return '/foo'; } 1; Catalyst-View-Mason-0.19/t/lib/TestApp/View/Mason/CompRootRef.pm000644 000765 000024 00000000222 12450337247 026367 0ustar00jnapiorkowskistaff000000 000000 package TestApp::View::Mason::CompRootRef; use strict; use warnings; use base 'Catalyst::View::Mason'; __PACKAGE__->config(use_match => 0); 1; Catalyst-View-Mason-0.19/t/lib/TestApp/View/Mason/Extension.pm000644 000765 000024 00000000314 12450337247 026146 0ustar00jnapiorkowskistaff000000 000000 package TestApp::View::Mason::Extension; use strict; use warnings; use base qw/Catalyst::View::Mason/; __PACKAGE__->config( template_extension => '.mas', use_match => 0, ); 1; Catalyst-View-Mason-0.19/t/lib/TestApp/View/Mason/ExtensionAlways.pm000644 000765 000024 00000000435 12450337247 027333 0ustar00jnapiorkowskistaff000000 000000 package TestApp::View::Mason::ExtensionAlways; use strict; use warnings; use base qw/Catalyst::View::Mason/; __PACKAGE__->config( template_extension => '.mas', always_append_template_extension => 1, use_match => 0, ); 1; Catalyst-View-Mason-0.19/t/lib/TestApp/View/Mason/Match.pm000644 000765 000024 00000000225 12450337247 025227 0ustar00jnapiorkowskistaff000000 000000 package TestApp::View::Mason::Match; use strict; use warnings; use base qw/Catalyst::View::Mason/; __PACKAGE__->config( use_match => 1, ); 1; Catalyst-View-Mason-0.19/t/lib/TestApp/View/Mason/NoMatch.pm000644 000765 000024 00000000233 12450337247 025523 0ustar00jnapiorkowskistaff000000 000000 package TestApp::View::Mason::NoMatch; use strict; use warnings; use base qw/Catalyst::View::Mason/; __PACKAGE__->config( use_match => 0, ); 1; Catalyst-View-Mason-0.19/t/lib/TestApp/View/Mason/Pkgconfig.pm000644 000765 000024 00000000561 12450337247 026105 0ustar00jnapiorkowskistaff000000 000000 package TestApp::View::Mason::Pkgconfig; use strict; use warnings; use base 'Catalyst::View::Mason'; __PACKAGE__->config( allow_globals => [qw/$foo @bar/], use_match => 0, ); if ($::use_path_class) { __PACKAGE__->config( comp_root => TestApp->path_to('root'), data_dir => TestApp->path_to('root', 'var'), ); } 1; Catalyst-View-Mason-0.19/t/lib/TestApp/root/action_match000644 000765 000024 00000000052 12450337247 025203 0ustar00jnapiorkowskistaff000000 000000 <%args> $message <% $message %>\ Catalyst-View-Mason-0.19/t/lib/TestApp/root/additional_globals000644 000765 000024 00000000201 12450337247 026361 0ustar00jnapiorkowskistaff000000 000000 <%init> $foo = 123; @bar = qw/moo kooh/; <& /globals &> { foo => <% $foo %>, bar => [<% join (q/, /, @bar) %>], } Catalyst-View-Mason-0.19/t/lib/TestApp/root/exception000644 000765 000024 00000000026 12450337247 024551 0ustar00jnapiorkowskistaff000000 000000 <% die "exception" %> Catalyst-View-Mason-0.19/t/lib/TestApp/root/foo000644 000765 000024 00000000054 12450337247 023337 0ustar00jnapiorkowskistaff000000 000000 <%args> $param param: <% $param %> Catalyst-View-Mason-0.19/t/lib/TestApp/root/globals000644 000765 000024 00000000106 12450337247 024175 0ustar00jnapiorkowskistaff000000 000000 { c => <% $c %>, name => <% $name %>, base => <% $base %>, } Catalyst-View-Mason-0.19/t/lib/TestApp/root/match/000755 000765 000024 00000000000 12450344204 023715 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/t/lib/TestApp/root/test000644 000765 000024 00000000052 12450337247 023531 0ustar00jnapiorkowskistaff000000 000000 <%args> $message <% $message %>\ Catalyst-View-Mason-0.19/t/lib/TestApp/root/test.mas000644 000765 000024 00000000024 12450337247 024307 0ustar00jnapiorkowskistaff000000 000000 template extension\ Catalyst-View-Mason-0.19/t/lib/TestApp/root/match/foo000644 000765 000024 00000000052 12450337247 024431 0ustar00jnapiorkowskistaff000000 000000 <%args> $message <% $message %>\ Catalyst-View-Mason-0.19/t/lib/TestApp/Controller/Root.pm000644 000765 000024 00000003157 12450343357 025260 0ustar00jnapiorkowskistaff000000 000000 package TestApp::Controller::Root; use strict; use warnings; use base qw/Catalyst::Controller/; __PACKAGE__->config(namespace=>''); sub test : Local { my ($self, $c) = @_; $c->stash->{message} = ($c->request->param('message') || $c->config->{default_message}); } sub test_set_template : Local { my ($self, $c) = @_; $c->forward('test'); $c->stash->{template} = 'test'; } sub test_content_type : Local { my ($self, $c) = @_; $c->forward('test'); $c->stash->{template} = '/test'; $c->response->content_type('text/html; charset=iso8859-1') } sub exception : Local { my ($self, $c) = @_; $c->log->abort(1); #silence errors } sub render : Local { my ($self, $c) = @_; my $out = $c->view->render( $c, $c->request->param('template'), { param => $c->req->param('param') || '' }, ); $c->response->body($out); if (ref($out) && $out->isa('HTML::Mason::Exception')) { $c->response->status(403); } } sub match : Local Args(1) { my ($self, $c) = @_; $c->stash->{message} = $c->request->args->[0]; } sub action_match : Local Args(1) { my ($self, $c) = @_; $c->stash->{message} = $c->request->args->[0]; } sub globals : Local { } sub additional_globals : Local { } sub comp_path : Local { my ($self, $c) = @_; $c->stash->{param} = 'bar'; } sub end : Private { my ($self, $c) = @_; return 1 if $c->response->status =~ /^3\d\d$/; return 1 if $c->response->body; my ($requested_view) = $c->request->param('view'); $c->forward($c->view( $requested_view ? "Mason::$requested_view" : () )); } 1; Catalyst-View-Mason-0.19/lib/Catalyst/000755 000765 000024 00000000000 12450344204 021577 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/lib/Catalyst/Helper/000755 000765 000024 00000000000 12450344204 023016 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/lib/Catalyst/View/000755 000765 000024 00000000000 12450344204 022511 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/lib/Catalyst/View/Mason.pm000644 000765 000024 00000017020 12450343626 024133 0ustar00jnapiorkowskistaff000000 000000 package Catalyst::View::Mason; use strict; use warnings; use base qw/Catalyst::View/; use Scalar::Util qw/blessed/; use File::Spec; use HTML::Mason; use MRO::Compat; our $VERSION = '0.19'; __PACKAGE__->mk_accessors('template'); =head1 NAME Catalyst::View::Mason - Mason View Class =head1 SYNOPSIS # use the helper script/create.pl view Mason Mason # lib/MyApp/View/Mason.pm package MyApp::View::Mason; use base 'Catalyst::View::Mason'; __PACKAGE__->config(use_match => 0); 1; $c->forward('MyApp::View::Mason'); =head1 DESCRIPTION Want to use a Mason component in your views? No problem! Catalyst::View::Mason comes to the rescue. =head1 EXAMPLE From the Catalyst controller: $c->stash->{name} = 'Homer'; # Pass a scalar $c->stash->{extra_info} = { last_name => 'Simpson', children => [qw(Bart Lisa Maggie)] }; # A ref works too From the Mason template: <%args> $name $extra_info

Your name is <% $name %> <% $extra_info->{last_name} %>

Your children are:

    % foreach my $child (@{$extra_info->{children}}) {
  • <% $child %>
    • % }
=head1 METHODS =cut =head2 new($app, \%config) =cut sub new { my ($self, $app, $arguments) = @_; my %config = ( comp_root => $app->config->{root}, data_dir => File::Spec->catdir( File::Spec->tmpdir, sprintf('%s_%d_mason_data_dir', $app, $<), ), use_match => 0, allow_globals => [], template_extension => q//, always_append_template_extension => 0, %{ $self->config }, %{ $arguments }, ); # stringify data_dir $config{data_dir} .= q//; # stringify comp_root if it isn't an unblessed array reference already $config{comp_root} .= q// if blessed($config{comp_root}) || ref $config{comp_root} ne 'ARRAY'; unshift @{ $config{allow_globals} }, qw/$c $base $name/; $self = $self->next::method($app, \%config); $self->{output} = q//; $self->config({ %config }); # those are config options for the view, not mason itself. delete @config{qw/ use_match template_extension always_append_template_extension catalyst_component_name /}; if ($self->config->{use_match}) { $app->log->warn(sprintf(<<'EOW', ref $self)); DEPRECATION WARNING: %s sets the use_match config variable to a true value. This has been deprecated. Please see the Catalyst::View::Mason documentation for details on use_match. EOW } $self->template( HTML::Mason::Interp->new( %config, out_method => \$self->{output}, ) ); return $self; } =head2 get_component_path Returns the component path from $c->stash->{template} or $c->request->match or $c->action (depending on the use_match setting). =cut sub get_component_path { my ($self, $c) = @_; my $component_path = $c->stash->{template}; my $extension = $self->config->{template_extension}; if (defined $component_path) { $component_path .= $extension if $self->config->{always_append_template_extension}; } else { $component_path = $self->config->{use_match} ? $c->request->match : $c->action; $component_path .= $extension; } return $component_path; } =head2 process Renders the component specified in $c->stash->{template} or $c->request->match or $c->action (depending on the use_match setting) to $c->response->body. Note that the component name must be absolute, or is converted to absolute (i.e., a / is added to the beginning if it doesn't start with one). Mason global variables C<$base>, C<$c>, and C<$name> are automatically set to the base, context, and name of the app, respectively. =cut sub process { my ($self, $c) = @_; my $component_path = $self->get_component_path($c); my $output = $self->render($c, $component_path); if (blessed($output) && $output->isa('HTML::Mason::Exception')) { chomp $output; my $error = qq/Couldn't render component "$component_path" - error was "$output"/; $c->log->error($error); $c->error($error); return 0; } unless ($c->response->content_type) { $c->response->content_type('text/html; charset=utf-8'); } $c->response->body($output); return 1; } =head2 render($c, $component_path, \%args) Renders the given template and returns output, or a HTML::Mason::Exception object upon error. The template variables are set to %$args if $args is a hashref, or $c-Estash otherwise. =cut sub _default_globals { my ($self, $c) = @_; my %default_globals = ( '$c' => $c, '$base' => $c->request->base, '$name' => $c->config->{name}, ); return %default_globals; } sub render { my ($self, $c, $component_path, $args) = @_; if ($component_path !~ m{^/}) { $component_path = '/' . $component_path; } $c->log->debug(qq/Rendering component "$component_path"/) if $c->debug; # Set the URL base, context and name of the app as global Mason vars # $base, $c and $name my %default_globals = $self->_default_globals($c); while (my ($key, $val) = each %default_globals) { $self->template->set_global($key => $val); } $self->{output} = q//; eval { $self->template->exec( $component_path, ref $args eq 'HASH' ? %{ $args } : %{ $c->stash }, ); }; if (my $error = $@) { return $error; } return $self->{output}; } =head3 config This allows you to to pass additional settings to the HTML::Mason::Interp constructor or to set the options as below: =over =item C This string is appended (if present) to C<< $c->action >> when generating a template path. Defaults to an empty string. Example: C<< template_extension => '.html' >> =item C Set this to a true value if you want C to be appended to the component path even if it was explicitly set. Defaults to 0. Example: C<< always_append_template_extension => 1 >> =item C Use C<$c-Erequest-Ematch> instead of C<$c-Eaction> to determine which template to use if C<$c-Estash-E{template}> isn't set. This option is deprecated and exists for backward compatibility only. Currently defaults to 0. Old code should set this to 1 to avoid breakage. Example: C<< use_match => 0 >> =back The default HTML::Mason::Interp config options are as follows: =over =item C C<$app-Econfig-Eroot> =item C Ccatdir( File::Spec-Etmpdir, sprintf('%s_%d_mason_data_dir', $app, $E) )> =item C C If you add additional allowed globals those will be appended to the list of default globals. =back =cut =head1 SEE ALSO L, L, "Using Mason from a Standalone Script" in L =head1 AUTHORS =over 4 =item Andres Kievsky C =item Sebastian Riedel C =item Marcus Ramberg =item Florian Ragwitz C =item Justin Hunter C =back =head1 COPYRIGHT Copyright (c) 2005 - 2009 the Catalyst::View::Mason L as listed above. This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; Catalyst-View-Mason-0.19/lib/Catalyst/Helper/View/000755 000765 000024 00000000000 12450344204 023730 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/lib/Catalyst/Helper/View/Mason.pm000644 000765 000024 00000002420 12450337247 025352 0ustar00jnapiorkowskistaff000000 000000 package Catalyst::Helper::View::Mason; use strict; use warnings; our $VERSION = '0.13'; =head1 NAME Catalyst::Helper::View::Mason - Helper for Mason Views =head1 SYNOPSIS script/create.pl view Mason Mason =head1 DESCRIPTION Helper for Mason Views. =head2 METHODS =head3 mk_compclass =cut sub mk_compclass { my ($self, $helper) = @_; my $file = $helper->{file}; $helper->render_file('compclass', $file); } =head1 SEE ALSO L, L, L, L, L =head1 AUTHOR Florian Ragwitz Originally written by: Andres Kievsky Sebastian Riedel, C =head1 LICENSE This library is free software . You can redistribute it and/or modify it under the same terms as perl itself. =cut 1; __DATA__ __compclass__ package [% class %]; use strict; use warnings; use parent 'Catalyst::View::Mason'; __PACKAGE__->config(use_match => 0); =head1 NAME [% class %] - Mason View Component for [% app %] =head1 DESCRIPTION Mason View Component for [% app %] =head1 SEE ALSO L<[% app %]>, L =head1 AUTHOR [% author %] =head1 LICENSE This library is free software . You can redistribute it and/or modify it under the same terms as perl itself. =cut 1; Catalyst-View-Mason-0.19/inc/Module/000755 000765 000024 00000000000 12450344204 021243 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/inc/Module/Install/000755 000765 000024 00000000000 12450344204 022651 5ustar00jnapiorkowskistaff000000 000000 Catalyst-View-Mason-0.19/inc/Module/Install.pm000644 000765 000024 00000030217 12450344055 023216 0ustar00jnapiorkowskistaff000000 000000 #line 1 package Module::Install; # For any maintainers: # The load order for Module::Install is a bit magic. # It goes something like this... # # IF ( host has Module::Install installed, creating author mode ) { # 1. Makefile.PL calls "use inc::Module::Install" # 2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Install # 3. The installed version of inc::Module::Install loads # 4. inc::Module::Install calls "require Module::Install" # 5. The ./inc/ version of Module::Install loads # } ELSE { # 1. Makefile.PL calls "use inc::Module::Install" # 2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install # 3. The ./inc/ version of Module::Install loads # } use 5.006; use strict 'vars'; use Cwd (); use File::Find (); use File::Path (); use vars qw{$VERSION $MAIN}; BEGIN { # All Module::Install core packages now require synchronised versions. # This will be used to ensure we don't accidentally load old or # different versions of modules. # This is not enforced yet, but will be some time in the next few # releases once we can make sure it won't clash with custom # Module::Install extensions. $VERSION = '1.14'; # Storage for the pseudo-singleton $MAIN = undef; *inc::Module::Install::VERSION = *VERSION; @inc::Module::Install::ISA = __PACKAGE__; } sub import { my $class = shift; my $self = $class->new(@_); my $who = $self->_caller; #------------------------------------------------------------- # all of the following checks should be included in import(), # to allow "eval 'require Module::Install; 1' to test # installation of Module::Install. (RT #51267) #------------------------------------------------------------- # Whether or not inc::Module::Install is actually loaded, the # $INC{inc/Module/Install.pm} is what will still get set as long as # the caller loaded module this in the documented manner. # If not set, the caller may NOT have loaded the bundled version, and thus # they may not have a MI version that works with the Makefile.PL. This would # result in false errors or unexpected behaviour. And we don't want that. my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm'; unless ( $INC{$file} ) { die <<"END_DIE" } Please invoke ${\__PACKAGE__} with: use inc::${\__PACKAGE__}; not: use ${\__PACKAGE__}; END_DIE # This reportedly fixes a rare Win32 UTC file time issue, but # as this is a non-cross-platform XS module not in the core, # we shouldn't really depend on it. See RT #24194 for detail. # (Also, this module only supports Perl 5.6 and above). eval "use Win32::UTCFileTime" if $^O eq 'MSWin32' && $] >= 5.006; # If the script that is loading Module::Install is from the future, # then make will detect this and cause it to re-run over and over # again. This is bad. Rather than taking action to touch it (which # is unreliable on some platforms and requires write permissions) # for now we should catch this and refuse to run. if ( -f $0 ) { my $s = (stat($0))[9]; # If the modification time is only slightly in the future, # sleep briefly to remove the problem. my $a = $s - time; if ( $a > 0 and $a < 5 ) { sleep 5 } # Too far in the future, throw an error. my $t = time; if ( $s > $t ) { die <<"END_DIE" } Your installer $0 has a modification time in the future ($s > $t). This is known to create infinite loops in make. Please correct this, then run $0 again. END_DIE } # Build.PL was formerly supported, but no longer is due to excessive # difficulty in implementing every single feature twice. if ( $0 =~ /Build.PL$/i ) { die <<"END_DIE" } Module::Install no longer supports Build.PL. It was impossible to maintain duel backends, and has been deprecated. Please remove all Build.PL files and only use the Makefile.PL installer. END_DIE #------------------------------------------------------------- # To save some more typing in Module::Install installers, every... # use inc::Module::Install # ...also acts as an implicit use strict. $^H |= strict::bits(qw(refs subs vars)); #------------------------------------------------------------- unless ( -f $self->{file} ) { foreach my $key (keys %INC) { delete $INC{$key} if $key =~ /Module\/Install/; } local $^W; require "$self->{path}/$self->{dispatch}.pm"; File::Path::mkpath("$self->{prefix}/$self->{author}"); $self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self ); $self->{admin}->init; @_ = ($class, _self => $self); goto &{"$self->{name}::import"}; } local $^W; *{"${who}::AUTOLOAD"} = $self->autoload; $self->preload; # Unregister loader and worker packages so subdirs can use them again delete $INC{'inc/Module/Install.pm'}; delete $INC{'Module/Install.pm'}; # Save to the singleton $MAIN = $self; return 1; } sub autoload { my $self = shift; my $who = $self->_caller; my $cwd = Cwd::getcwd(); my $sym = "${who}::AUTOLOAD"; $sym->{$cwd} = sub { my $pwd = Cwd::getcwd(); if ( my $code = $sym->{$pwd} ) { # Delegate back to parent dirs goto &$code unless $cwd eq $pwd; } unless ($$sym =~ s/([^:]+)$//) { # XXX: it looks like we can't retrieve the missing function # via $$sym (usually $main::AUTOLOAD) in this case. # I'm still wondering if we should slurp Makefile.PL to # get some context or not ... my ($package, $file, $line) = caller; die <<"EOT"; Unknown function is found at $file line $line. Execution of $file aborted due to runtime errors. If you're a contributor to a project, you may need to install some Module::Install extensions from CPAN (or other repository). If you're a user of a module, please contact the author. EOT } my $method = $1; if ( uc($method) eq $method ) { # Do nothing return; } elsif ( $method =~ /^_/ and $self->can($method) ) { # Dispatch to the root M:I class return $self->$method(@_); } # Dispatch to the appropriate plugin unshift @_, ( $self, $1 ); goto &{$self->can('call')}; }; } sub preload { my $self = shift; unless ( $self->{extensions} ) { $self->load_extensions( "$self->{prefix}/$self->{path}", $self ); } my @exts = @{$self->{extensions}}; unless ( @exts ) { @exts = $self->{admin}->load_all_extensions; } my %seen; foreach my $obj ( @exts ) { while (my ($method, $glob) = each %{ref($obj) . '::'}) { next unless $obj->can($method); next if $method =~ /^_/; next if $method eq uc($method); $seen{$method}++; } } my $who = $self->_caller; foreach my $name ( sort keys %seen ) { local $^W; *{"${who}::$name"} = sub { ${"${who}::AUTOLOAD"} = "${who}::$name"; goto &{"${who}::AUTOLOAD"}; }; } } sub new { my ($class, %args) = @_; delete $INC{'FindBin.pm'}; { # to suppress the redefine warning local $SIG{__WARN__} = sub {}; require FindBin; } # ignore the prefix on extension modules built from top level. my $base_path = Cwd::abs_path($FindBin::Bin); unless ( Cwd::abs_path(Cwd::getcwd()) eq $base_path ) { delete $args{prefix}; } return $args{_self} if $args{_self}; $args{dispatch} ||= 'Admin'; $args{prefix} ||= 'inc'; $args{author} ||= ($^O eq 'VMS' ? '_author' : '.author'); $args{bundle} ||= 'inc/BUNDLES'; $args{base} ||= $base_path; $class =~ s/^\Q$args{prefix}\E:://; $args{name} ||= $class; $args{version} ||= $class->VERSION; unless ( $args{path} ) { $args{path} = $args{name}; $args{path} =~ s!::!/!g; } $args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm"; $args{wrote} = 0; bless( \%args, $class ); } sub call { my ($self, $method) = @_; my $obj = $self->load($method) or return; splice(@_, 0, 2, $obj); goto &{$obj->can($method)}; } sub load { my ($self, $method) = @_; $self->load_extensions( "$self->{prefix}/$self->{path}", $self ) unless $self->{extensions}; foreach my $obj (@{$self->{extensions}}) { return $obj if $obj->can($method); } my $admin = $self->{admin} or die <<"END_DIE"; The '$method' method does not exist in the '$self->{prefix}' path! Please remove the '$self->{prefix}' directory and run $0 again to load it. END_DIE my $obj = $admin->load($method, 1); push @{$self->{extensions}}, $obj; $obj; } sub load_extensions { my ($self, $path, $top) = @_; my $should_reload = 0; unless ( grep { ! ref $_ and lc $_ eq lc $self->{prefix} } @INC ) { unshift @INC, $self->{prefix}; $should_reload = 1; } foreach my $rv ( $self->find_extensions($path) ) { my ($file, $pkg) = @{$rv}; next if $self->{pathnames}{$pkg}; local $@; my $new = eval { local $^W; require $file; $pkg->can('new') }; unless ( $new ) { warn $@ if $@; next; } $self->{pathnames}{$pkg} = $should_reload ? delete $INC{$file} : $INC{$file}; push @{$self->{extensions}}, &{$new}($pkg, _top => $top ); } $self->{extensions} ||= []; } sub find_extensions { my ($self, $path) = @_; my @found; File::Find::find( sub { my $file = $File::Find::name; return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is; my $subpath = $1; return if lc($subpath) eq lc($self->{dispatch}); $file = "$self->{path}/$subpath.pm"; my $pkg = "$self->{name}::$subpath"; $pkg =~ s!/!::!g; # If we have a mixed-case package name, assume case has been preserved # correctly. Otherwise, root through the file to locate the case-preserved # version of the package name. if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) { my $content = Module::Install::_read($subpath . '.pm'); my $in_pod = 0; foreach ( split /\n/, $content ) { $in_pod = 1 if /^=\w/; $in_pod = 0 if /^=cut/; next if ($in_pod || /^=cut/); # skip pod text next if /^\s*#/; # and comments if ( m/^\s*package\s+($pkg)\s*;/i ) { $pkg = $1; last; } } } push @found, [ $file, $pkg ]; }, $path ) if -d $path; @found; } ##################################################################### # Common Utility Functions sub _caller { my $depth = 0; my $call = caller($depth); while ( $call eq __PACKAGE__ ) { $depth++; $call = caller($depth); } return $call; } # Done in evals to avoid confusing Perl::MinimumVersion eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; sub _read { local *FH; open( FH, '<', $_[0] ) or die "open($_[0]): $!"; binmode FH; my $string = do { local $/; }; close FH or die "close($_[0]): $!"; return $string; } END_NEW sub _read { local *FH; open( FH, "< $_[0]" ) or die "open($_[0]): $!"; binmode FH; my $string = do { local $/; }; close FH or die "close($_[0]): $!"; return $string; } END_OLD sub _readperl { my $string = Module::Install::_read($_[0]); $string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg; $string =~ s/(\n)\n*__(?:DATA|END)__\b.*\z/$1/s; $string =~ s/\n\n=\w+.+?\n\n=cut\b.+?\n+/\n\n/sg; return $string; } sub _readpod { my $string = Module::Install::_read($_[0]); $string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg; return $string if $_[0] =~ /\.pod\z/; $string =~ s/(^|\n=cut\b.+?\n+)[^=\s].+?\n(\n=\w+|\z)/$1$2/sg; $string =~ s/\n*=pod\b[^\n]*\n+/\n\n/sg; $string =~ s/\n*=cut\b[^\n]*\n+/\n\n/sg; $string =~ s/^\n+//s; return $string; } # Done in evals to avoid confusing Perl::MinimumVersion eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; sub _write { local *FH; open( FH, '>', $_[0] ) or die "open($_[0]): $!"; binmode FH; foreach ( 1 .. $#_ ) { print FH $_[$_] or die "print($_[0]): $!"; } close FH or die "close($_[0]): $!"; } END_NEW sub _write { local *FH; open( FH, "> $_[0]" ) or die "open($_[0]): $!"; binmode FH; foreach ( 1 .. $#_ ) { print FH $_[$_] or die "print($_[0]): $!"; } close FH or die "close($_[0]): $!"; } END_OLD # _version is for processing module versions (eg, 1.03_05) not # Perl versions (eg, 5.8.1). sub _version { my $s = shift || 0; my $d =()= $s =~ /(\.)/g; if ( $d >= 2 ) { # Normalise multipart versions $s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg; } $s =~ s/^(\d+)\.?//; my $l = $1 || 0; my @v = map { $_ . '0' x (3 - length $_) } $s =~ /(\d{1,3})\D?/g; $l = $l . '.' . join '', @v if @v; return $l + 0; } sub _cmp { _version($_[1]) <=> _version($_[2]); } # Cloned from Params::Util::_CLASS sub _CLASS { ( defined $_[0] and ! ref $_[0] and $_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s ) ? $_[0] : undef; } 1; # Copyright 2008 - 2012 Adam Kennedy. Catalyst-View-Mason-0.19/inc/Module/Install/Base.pm000644 000765 000024 00000002147 12450344055 024071 0ustar00jnapiorkowskistaff000000 000000 #line 1 package Module::Install::Base; use strict 'vars'; use vars qw{$VERSION}; BEGIN { $VERSION = '1.14'; } # Suspend handler for "redefined" warnings BEGIN { my $w = $SIG{__WARN__}; $SIG{__WARN__} = sub { $w }; } #line 42 sub new { my $class = shift; unless ( defined &{"${class}::call"} ) { *{"${class}::call"} = sub { shift->_top->call(@_) }; } unless ( defined &{"${class}::load"} ) { *{"${class}::load"} = sub { shift->_top->load(@_) }; } bless { @_ }, $class; } #line 61 sub AUTOLOAD { local $@; my $func = eval { shift->_top->autoload } or return; goto &$func; } #line 75 sub _top { $_[0]->{_top}; } #line 90 sub admin { $_[0]->_top->{admin} or Module::Install::Base::FakeAdmin->new; } #line 106 sub is_admin { ! $_[0]->admin->isa('Module::Install::Base::FakeAdmin'); } sub DESTROY {} package Module::Install::Base::FakeAdmin; use vars qw{$VERSION}; BEGIN { $VERSION = $Module::Install::Base::VERSION; } my $fake; sub new { $fake ||= bless(\@_, $_[0]); } sub AUTOLOAD {} sub DESTROY {} # Restore warning handler BEGIN { $SIG{__WARN__} = $SIG{__WARN__}->(); } 1; #line 159 Catalyst-View-Mason-0.19/inc/Module/Install/Can.pm000644 000765 000024 00000006157 12450344055 023725 0ustar00jnapiorkowskistaff000000 000000 #line 1 package Module::Install::Can; use strict; use Config (); use ExtUtils::MakeMaker (); use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { $VERSION = '1.14'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } # check if we can load some module ### Upgrade this to not have to load the module if possible sub can_use { my ($self, $mod, $ver) = @_; $mod =~ s{::|\\}{/}g; $mod .= '.pm' unless $mod =~ /\.pm$/i; my $pkg = $mod; $pkg =~ s{/}{::}g; $pkg =~ s{\.pm$}{}i; local $@; eval { require $mod; $pkg->VERSION($ver || 0); 1 }; } # Check if we can run some command sub can_run { my ($self, $cmd) = @_; my $_cmd = $cmd; return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd)); for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') { next if $dir eq ''; require File::Spec; my $abs = File::Spec->catfile($dir, $cmd); return $abs if (-x $abs or $abs = MM->maybe_command($abs)); } return; } # Can our C compiler environment build XS files sub can_xs { my $self = shift; # Ensure we have the CBuilder module $self->configure_requires( 'ExtUtils::CBuilder' => 0.27 ); # Do we have the configure_requires checker? local $@; eval "require ExtUtils::CBuilder;"; if ( $@ ) { # They don't obey configure_requires, so it is # someone old and delicate. Try to avoid hurting # them by falling back to an older simpler test. return $self->can_cc(); } # Do we have a working C compiler my $builder = ExtUtils::CBuilder->new( quiet => 1, ); unless ( $builder->have_compiler ) { # No working C compiler return 0; } # Write a C file representative of what XS becomes require File::Temp; my ( $FH, $tmpfile ) = File::Temp::tempfile( "compilexs-XXXXX", SUFFIX => '.c', ); binmode $FH; print $FH <<'END_C'; #include "EXTERN.h" #include "perl.h" #include "XSUB.h" int main(int argc, char **argv) { return 0; } int boot_sanexs() { return 1; } END_C close $FH; # Can the C compiler access the same headers XS does my @libs = (); my $object = undef; eval { local $^W = 0; $object = $builder->compile( source => $tmpfile, ); @libs = $builder->link( objects => $object, module_name => 'sanexs', ); }; my $result = $@ ? 0 : 1; # Clean up all the build files foreach ( $tmpfile, $object, @libs ) { next unless defined $_; 1 while unlink; } return $result; } # Can we locate a (the) C compiler sub can_cc { my $self = shift; my @chunks = split(/ /, $Config::Config{cc}) or return; # $Config{cc} may contain args; try to find out the program part while (@chunks) { return $self->can_run("@chunks") || (pop(@chunks), next); } return; } # Fix Cygwin bug on maybe_command(); if ( $^O eq 'cygwin' ) { require ExtUtils::MM_Cygwin; require ExtUtils::MM_Win32; if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) { *ExtUtils::MM_Cygwin::maybe_command = sub { my ($self, $file) = @_; if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) { ExtUtils::MM_Win32->maybe_command($file); } else { ExtUtils::MM_Unix->maybe_command($file); } } } } 1; __END__ #line 236 Catalyst-View-Mason-0.19/inc/Module/Install/ExtraTests.pm000644 000765 000024 00000005666 12450344055 025336 0ustar00jnapiorkowskistaff000000 000000 #line 1 use strict; use warnings; use 5.006; package Module::Install::ExtraTests; use Module::Install::Base; BEGIN { our $VERSION = '0.008'; our $ISCORE = 1; our @ISA = qw{Module::Install::Base}; } our $use_extratests = 0; sub extra_tests { my ($self) = @_; return unless -d 'xt'; return unless my @content = grep { $_ !~ /^[.]/ } ; die "unknown files found in ./xt" if grep { !-d } @content; my %known = map {; "xt/$_" => 1 } qw(author smoke release); my @unknown = grep { not $known{$_} } @content; die "unknown directories found in ./xt: @unknown" if @unknown; $use_extratests = 1; return; } { no warnings qw(once); package # The newline tells PAUSE, "DO NOT INDEXING!" MY; sub test_via_harness { my $self = shift; return $self->SUPER::test_via_harness(@_) unless $use_extratests; my ($perl, $tests) = @_; my $a_str = -d 'xt/author' ? 'xt/author' : ''; my $r_str = -d 'xt/release' ? 'xt/release' : ''; my $s_str = -d 'xt/smoke' ? 'xt/smoke' : ''; my $is_author = $Module::Install::AUTHOR ? 1 : 0; return qq{\t$perl "-Iinc" "-MModule::Install::ExtraTests" } . qq{"-e" "Module::Install::ExtraTests::__harness('Test::Harness', $is_author, '$a_str', '$r_str', '$s_str', \$(TEST_VERBOSE), '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $tests\n}; } sub dist_test { my ($self, @args) = @_; return $self->SUPER::dist_test(@args) unless $use_extratests; my $text = $self->SUPER::dist_test(@args); my @lines = split /\n/, $text; $_ =~ s/ (\S*MAKE\S* test )/ RELEASE_TESTING=1 $1 / for grep { m/ test / } @lines; return join "\n", @lines; } } sub __harness { my $harness_class = shift; my $is_author = shift; my $author_tests = shift; my $release_tests = shift; my $smoke_tests = shift; eval "require $harness_class; 1" or die; require File::Spec; my $verbose = shift; eval "\$$harness_class\::verbose = $verbose; 1" or die; # Because Windows doesn't do this for us and listing all the *.t files # out on the command line can blow over its exec limit. require ExtUtils::Command; push @ARGV, __PACKAGE__->_deep_t($author_tests) if $author_tests and (exists $ENV{AUTHOR_TESTING} ? $ENV{AUTHOR_TESTING} : $is_author); push @ARGV, __PACKAGE__->_deep_t($release_tests) if $release_tests and $ENV{RELEASE_TESTING}; push @ARGV, __PACKAGE__->_deep_t($smoke_tests) if $smoke_tests and $ENV{AUTOMATED_TESTING}; my @argv = ExtUtils::Command::expand_wildcards(@ARGV); local @INC = @INC; unshift @INC, map { File::Spec->rel2abs($_) } @_; $harness_class->can('runtests')->(sort { lc $a cmp lc $b } @argv); } sub _wanted { my $href = shift; no warnings 'once'; sub { /\.t$/ and -f $_ and $href->{$File::Find::dir} = 1 } } sub _deep_t { my ($self, $dir) = @_; require File::Find; my %test_dir; File::Find::find(_wanted(\%test_dir), $dir); return map { "$_/*.t" } sort keys %test_dir; } 1; __END__ Catalyst-View-Mason-0.19/inc/Module/Install/Fetch.pm000644 000765 000024 00000004627 12450344055 024255 0ustar00jnapiorkowskistaff000000 000000 #line 1 package Module::Install::Fetch; use strict; use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { $VERSION = '1.14'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } sub get_file { my ($self, %args) = @_; my ($scheme, $host, $path, $file) = $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return; if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) { $args{url} = $args{ftp_url} or (warn("LWP support unavailable!\n"), return); ($scheme, $host, $path, $file) = $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return; } $|++; print "Fetching '$file' from $host... "; unless (eval { require Socket; Socket::inet_aton($host) }) { warn "'$host' resolve failed!\n"; return; } return unless $scheme eq 'ftp' or $scheme eq 'http'; require Cwd; my $dir = Cwd::getcwd(); chdir $args{local_dir} or return if exists $args{local_dir}; if (eval { require LWP::Simple; 1 }) { LWP::Simple::mirror($args{url}, $file); } elsif (eval { require Net::FTP; 1 }) { eval { # use Net::FTP to get past firewall my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600); $ftp->login("anonymous", 'anonymous@example.com'); $ftp->cwd($path); $ftp->binary; $ftp->get($file) or (warn("$!\n"), return); $ftp->quit; } } elsif (my $ftp = $self->can_run('ftp')) { eval { # no Net::FTP, fallback to ftp.exe require FileHandle; my $fh = FileHandle->new; local $SIG{CHLD} = 'IGNORE'; unless ($fh->open("|$ftp -n")) { warn "Couldn't open ftp: $!\n"; chdir $dir; return; } my @dialog = split(/\n/, <<"END_FTP"); open $host user anonymous anonymous\@example.com cd $path binary get $file $file quit END_FTP foreach (@dialog) { $fh->print("$_\n") } $fh->close; } } else { warn "No working 'ftp' program available!\n"; chdir $dir; return; } unless (-f $file) { warn "Fetching failed: $@\n"; chdir $dir; return; } return if exists $args{size} and -s $file != $args{size}; system($args{run}) if exists $args{run}; unlink($file) if $args{remove}; print(((!exists $args{check_for} or -e $args{check_for}) ? "done!" : "failed! ($!)"), "\n"); chdir $dir; return !$?; } 1; Catalyst-View-Mason-0.19/inc/Module/Install/Makefile.pm000644 000765 000024 00000027437 12450344055 024745 0ustar00jnapiorkowskistaff000000 000000 #line 1 package Module::Install::Makefile; use strict 'vars'; use ExtUtils::MakeMaker (); use Module::Install::Base (); use Fcntl qw/:flock :seek/; use vars qw{$VERSION @ISA $ISCORE}; BEGIN { $VERSION = '1.14'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } sub Makefile { $_[0] } my %seen = (); sub prompt { shift; # Infinite loop protection my @c = caller(); if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) { die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])"; } # In automated testing or non-interactive session, always use defaults if ( ($ENV{AUTOMATED_TESTING} or -! -t STDIN) and ! $ENV{PERL_MM_USE_DEFAULT} ) { local $ENV{PERL_MM_USE_DEFAULT} = 1; goto &ExtUtils::MakeMaker::prompt; } else { goto &ExtUtils::MakeMaker::prompt; } } # Store a cleaned up version of the MakeMaker version, # since we need to behave differently in a variety of # ways based on the MM version. my $makemaker = eval $ExtUtils::MakeMaker::VERSION; # If we are passed a param, do a "newer than" comparison. # Otherwise, just return the MakeMaker version. sub makemaker { ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 } # Ripped from ExtUtils::MakeMaker 6.56, and slightly modified # as we only need to know here whether the attribute is an array # or a hash or something else (which may or may not be appendable). my %makemaker_argtype = ( C => 'ARRAY', CONFIG => 'ARRAY', # CONFIGURE => 'CODE', # ignore DIR => 'ARRAY', DL_FUNCS => 'HASH', DL_VARS => 'ARRAY', EXCLUDE_EXT => 'ARRAY', EXE_FILES => 'ARRAY', FUNCLIST => 'ARRAY', H => 'ARRAY', IMPORTS => 'HASH', INCLUDE_EXT => 'ARRAY', LIBS => 'ARRAY', # ignore '' MAN1PODS => 'HASH', MAN3PODS => 'HASH', META_ADD => 'HASH', META_MERGE => 'HASH', PL_FILES => 'HASH', PM => 'HASH', PMLIBDIRS => 'ARRAY', PMLIBPARENTDIRS => 'ARRAY', PREREQ_PM => 'HASH', CONFIGURE_REQUIRES => 'HASH', SKIP => 'ARRAY', TYPEMAPS => 'ARRAY', XS => 'HASH', # VERSION => ['version',''], # ignore # _KEEP_AFTER_FLUSH => '', clean => 'HASH', depend => 'HASH', dist => 'HASH', dynamic_lib=> 'HASH', linkext => 'HASH', macro => 'HASH', postamble => 'HASH', realclean => 'HASH', test => 'HASH', tool_autosplit => 'HASH', # special cases where you can use makemaker_append CCFLAGS => 'APPENDABLE', DEFINE => 'APPENDABLE', INC => 'APPENDABLE', LDDLFLAGS => 'APPENDABLE', LDFROM => 'APPENDABLE', ); sub makemaker_args { my ($self, %new_args) = @_; my $args = ( $self->{makemaker_args} ||= {} ); foreach my $key (keys %new_args) { if ($makemaker_argtype{$key}) { if ($makemaker_argtype{$key} eq 'ARRAY') { $args->{$key} = [] unless defined $args->{$key}; unless (ref $args->{$key} eq 'ARRAY') { $args->{$key} = [$args->{$key}] } push @{$args->{$key}}, ref $new_args{$key} eq 'ARRAY' ? @{$new_args{$key}} : $new_args{$key}; } elsif ($makemaker_argtype{$key} eq 'HASH') { $args->{$key} = {} unless defined $args->{$key}; foreach my $skey (keys %{ $new_args{$key} }) { $args->{$key}{$skey} = $new_args{$key}{$skey}; } } elsif ($makemaker_argtype{$key} eq 'APPENDABLE') { $self->makemaker_append($key => $new_args{$key}); } } else { if (defined $args->{$key}) { warn qq{MakeMaker attribute "$key" is overriden; use "makemaker_append" to append values\n}; } $args->{$key} = $new_args{$key}; } } return $args; } # For mm args that take multiple space-separated args, # append an argument to the current list. sub makemaker_append { my $self = shift; my $name = shift; my $args = $self->makemaker_args; $args->{$name} = defined $args->{$name} ? join( ' ', $args->{$name}, @_ ) : join( ' ', @_ ); } sub build_subdirs { my $self = shift; my $subdirs = $self->makemaker_args->{DIR} ||= []; for my $subdir (@_) { push @$subdirs, $subdir; } } sub clean_files { my $self = shift; my $clean = $self->makemaker_args->{clean} ||= {}; %$clean = ( %$clean, FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_), ); } sub realclean_files { my $self = shift; my $realclean = $self->makemaker_args->{realclean} ||= {}; %$realclean = ( %$realclean, FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_), ); } sub libs { my $self = shift; my $libs = ref $_[0] ? shift : [ shift ]; $self->makemaker_args( LIBS => $libs ); } sub inc { my $self = shift; $self->makemaker_args( INC => shift ); } sub _wanted_t { } sub tests_recursive { my $self = shift; my $dir = shift || 't'; unless ( -d $dir ) { die "tests_recursive dir '$dir' does not exist"; } my %tests = map { $_ => 1 } split / /, ($self->tests || ''); require File::Find; File::Find::find( sub { /\.t$/ and -f $_ and $tests{"$File::Find::dir/*.t"} = 1 }, $dir ); $self->tests( join ' ', sort keys %tests ); } sub write { my $self = shift; die "&Makefile->write() takes no arguments\n" if @_; # Check the current Perl version my $perl_version = $self->perl_version; if ( $perl_version ) { eval "use $perl_version; 1" or die "ERROR: perl: Version $] is installed, " . "but we need version >= $perl_version"; } # Make sure we have a new enough MakeMaker require ExtUtils::MakeMaker; if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) { # This previous attempted to inherit the version of # ExtUtils::MakeMaker in use by the module author, but this # was found to be untenable as some authors build releases # using future dev versions of EU:MM that nobody else has. # Instead, #toolchain suggests we use 6.59 which is the most # stable version on CPAN at time of writing and is, to quote # ribasushi, "not terminally fucked, > and tested enough". # TODO: We will now need to maintain this over time to push # the version up as new versions are released. $self->build_requires( 'ExtUtils::MakeMaker' => 6.59 ); $self->configure_requires( 'ExtUtils::MakeMaker' => 6.59 ); } else { # Allow legacy-compatibility with 5.005 by depending on the # most recent EU:MM that supported 5.005. $self->build_requires( 'ExtUtils::MakeMaker' => 6.36 ); $self->configure_requires( 'ExtUtils::MakeMaker' => 6.36 ); } # Generate the MakeMaker params my $args = $self->makemaker_args; $args->{DISTNAME} = $self->name; $args->{NAME} = $self->module_name || $self->name; $args->{NAME} =~ s/-/::/g; $args->{VERSION} = $self->version or die <<'EOT'; ERROR: Can't determine distribution version. Please specify it explicitly via 'version' in Makefile.PL, or set a valid $VERSION in a module, and provide its file path via 'version_from' (or 'all_from' if you prefer) in Makefile.PL. EOT if ( $self->tests ) { my @tests = split ' ', $self->tests; my %seen; $args->{test} = { TESTS => (join ' ', grep {!$seen{$_}++} @tests), }; } elsif ( $Module::Install::ExtraTests::use_extratests ) { # Module::Install::ExtraTests doesn't set $self->tests and does its own tests via harness. # So, just ignore our xt tests here. } elsif ( -d 'xt' and ($Module::Install::AUTHOR or $ENV{RELEASE_TESTING}) ) { $args->{test} = { TESTS => join( ' ', map { "$_/*.t" } grep { -d $_ } qw{ t xt } ), }; } if ( $] >= 5.005 ) { $args->{ABSTRACT} = $self->abstract; $args->{AUTHOR} = join ', ', @{$self->author || []}; } if ( $self->makemaker(6.10) ) { $args->{NO_META} = 1; #$args->{NO_MYMETA} = 1; } if ( $self->makemaker(6.17) and $self->sign ) { $args->{SIGN} = 1; } unless ( $self->is_admin ) { delete $args->{SIGN}; } if ( $self->makemaker(6.31) and $self->license ) { $args->{LICENSE} = $self->license; } my $prereq = ($args->{PREREQ_PM} ||= {}); %$prereq = ( %$prereq, map { @$_ } # flatten [module => version] map { @$_ } grep $_, ($self->requires) ); # Remove any reference to perl, PREREQ_PM doesn't support it delete $args->{PREREQ_PM}->{perl}; # Merge both kinds of requires into BUILD_REQUIRES my $build_prereq = ($args->{BUILD_REQUIRES} ||= {}); %$build_prereq = ( %$build_prereq, map { @$_ } # flatten [module => version] map { @$_ } grep $_, ($self->configure_requires, $self->build_requires) ); # Remove any reference to perl, BUILD_REQUIRES doesn't support it delete $args->{BUILD_REQUIRES}->{perl}; # Delete bundled dists from prereq_pm, add it to Makefile DIR my $subdirs = ($args->{DIR} || []); if ($self->bundles) { my %processed; foreach my $bundle (@{ $self->bundles }) { my ($mod_name, $dist_dir) = @$bundle; delete $prereq->{$mod_name}; $dist_dir = File::Basename::basename($dist_dir); # dir for building this module if (not exists $processed{$dist_dir}) { if (-d $dist_dir) { # List as sub-directory to be processed by make push @$subdirs, $dist_dir; } # Else do nothing: the module is already present on the system $processed{$dist_dir} = undef; } } } unless ( $self->makemaker('6.55_03') ) { %$prereq = (%$prereq,%$build_prereq); delete $args->{BUILD_REQUIRES}; } if ( my $perl_version = $self->perl_version ) { eval "use $perl_version; 1" or die "ERROR: perl: Version $] is installed, " . "but we need version >= $perl_version"; if ( $self->makemaker(6.48) ) { $args->{MIN_PERL_VERSION} = $perl_version; } } if ($self->installdirs) { warn qq{old INSTALLDIRS (probably set by makemaker_args) is overriden by installdirs\n} if $args->{INSTALLDIRS}; $args->{INSTALLDIRS} = $self->installdirs; } my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_} ) } keys %$args; my $user_preop = delete $args{dist}->{PREOP}; if ( my $preop = $self->admin->preop($user_preop) ) { foreach my $key ( keys %$preop ) { $args{dist}->{$key} = $preop->{$key}; } } my $mm = ExtUtils::MakeMaker::WriteMakefile(%args); $self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile'); } sub fix_up_makefile { my $self = shift; my $makefile_name = shift; my $top_class = ref($self->_top) || ''; my $top_version = $self->_top->VERSION || ''; my $preamble = $self->preamble ? "# Preamble by $top_class $top_version\n" . $self->preamble : ''; my $postamble = "# Postamble by $top_class $top_version\n" . ($self->postamble || ''); local *MAKEFILE; open MAKEFILE, "+< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!"; eval { flock MAKEFILE, LOCK_EX }; my $makefile = do { local $/; }; $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /; $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g; $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g; $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m; $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m; # Module::Install will never be used to build the Core Perl # Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks # PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist $makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m; #$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m; # Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well. $makefile =~ s/(\"?)-I\$\(PERL_LIB\)\1//g; # XXX - This is currently unused; not sure if it breaks other MM-users # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg; seek MAKEFILE, 0, SEEK_SET; truncate MAKEFILE, 0; print MAKEFILE "$preamble$makefile$postamble" or die $!; close MAKEFILE or die $!; 1; } sub preamble { my ($self, $text) = @_; $self->{preamble} = $text . $self->{preamble} if defined $text; $self->{preamble}; } sub postamble { my ($self, $text) = @_; $self->{postamble} ||= $self->admin->postamble; $self->{postamble} .= $text if defined $text; $self->{postamble} } 1; __END__ #line 544 Catalyst-View-Mason-0.19/inc/Module/Install/Metadata.pm000644 000765 000024 00000043302 12450344055 024735 0ustar00jnapiorkowskistaff000000 000000 #line 1 package Module::Install::Metadata; use strict 'vars'; use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { $VERSION = '1.14'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } my @boolean_keys = qw{ sign }; my @scalar_keys = qw{ name module_name abstract version distribution_type tests installdirs }; my @tuple_keys = qw{ configure_requires build_requires requires recommends bundles resources }; my @resource_keys = qw{ homepage bugtracker repository }; my @array_keys = qw{ keywords author }; *authors = \&author; sub Meta { shift } sub Meta_BooleanKeys { @boolean_keys } sub Meta_ScalarKeys { @scalar_keys } sub Meta_TupleKeys { @tuple_keys } sub Meta_ResourceKeys { @resource_keys } sub Meta_ArrayKeys { @array_keys } foreach my $key ( @boolean_keys ) { *$key = sub { my $self = shift; if ( defined wantarray and not @_ ) { return $self->{values}->{$key}; } $self->{values}->{$key} = ( @_ ? $_[0] : 1 ); return $self; }; } foreach my $key ( @scalar_keys ) { *$key = sub { my $self = shift; return $self->{values}->{$key} if defined wantarray and !@_; $self->{values}->{$key} = shift; return $self; }; } foreach my $key ( @array_keys ) { *$key = sub { my $self = shift; return $self->{values}->{$key} if defined wantarray and !@_; $self->{values}->{$key} ||= []; push @{$self->{values}->{$key}}, @_; return $self; }; } foreach my $key ( @resource_keys ) { *$key = sub { my $self = shift; unless ( @_ ) { return () unless $self->{values}->{resources}; return map { $_->[1] } grep { $_->[0] eq $key } @{ $self->{values}->{resources} }; } return $self->{values}->{resources}->{$key} unless @_; my $uri = shift or die( "Did not provide a value to $key()" ); $self->resources( $key => $uri ); return 1; }; } foreach my $key ( grep { $_ ne "resources" } @tuple_keys) { *$key = sub { my $self = shift; return $self->{values}->{$key} unless @_; my @added; while ( @_ ) { my $module = shift or last; my $version = shift || 0; push @added, [ $module, $version ]; } push @{ $self->{values}->{$key} }, @added; return map {@$_} @added; }; } # Resource handling my %lc_resource = map { $_ => 1 } qw{ homepage license bugtracker repository }; sub resources { my $self = shift; while ( @_ ) { my $name = shift or last; my $value = shift or next; if ( $name eq lc $name and ! $lc_resource{$name} ) { die("Unsupported reserved lowercase resource '$name'"); } $self->{values}->{resources} ||= []; push @{ $self->{values}->{resources} }, [ $name, $value ]; } $self->{values}->{resources}; } # Aliases for build_requires that will have alternative # meanings in some future version of META.yml. sub test_requires { shift->build_requires(@_) } sub install_requires { shift->build_requires(@_) } # Aliases for installdirs options sub install_as_core { $_[0]->installdirs('perl') } sub install_as_cpan { $_[0]->installdirs('site') } sub install_as_site { $_[0]->installdirs('site') } sub install_as_vendor { $_[0]->installdirs('vendor') } sub dynamic_config { my $self = shift; my $value = @_ ? shift : 1; if ( $self->{values}->{dynamic_config} ) { # Once dynamic we never change to static, for safety return 0; } $self->{values}->{dynamic_config} = $value ? 1 : 0; return 1; } # Convenience command sub static_config { shift->dynamic_config(0); } sub perl_version { my $self = shift; return $self->{values}->{perl_version} unless @_; my $version = shift or die( "Did not provide a value to perl_version()" ); # Normalize the version $version = $self->_perl_version($version); # We don't support the really old versions unless ( $version >= 5.005 ) { die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n"; } $self->{values}->{perl_version} = $version; } sub all_from { my ( $self, $file ) = @_; unless ( defined($file) ) { my $name = $self->name or die( "all_from called with no args without setting name() first" ); $file = join('/', 'lib', split(/-/, $name)) . '.pm'; $file =~ s{.*/}{} unless -e $file; unless ( -e $file ) { die("all_from cannot find $file from $name"); } } unless ( -f $file ) { die("The path '$file' does not exist, or is not a file"); } $self->{values}{all_from} = $file; # Some methods pull from POD instead of code. # If there is a matching .pod, use that instead my $pod = $file; $pod =~ s/\.pm$/.pod/i; $pod = $file unless -e $pod; # Pull the different values $self->name_from($file) unless $self->name; $self->version_from($file) unless $self->version; $self->perl_version_from($file) unless $self->perl_version; $self->author_from($pod) unless @{$self->author || []}; $self->license_from($pod) unless $self->license; $self->abstract_from($pod) unless $self->abstract; return 1; } sub provides { my $self = shift; my $provides = ( $self->{values}->{provides} ||= {} ); %$provides = (%$provides, @_) if @_; return $provides; } sub auto_provides { my $self = shift; return $self unless $self->is_admin; unless (-e 'MANIFEST') { warn "Cannot deduce auto_provides without a MANIFEST, skipping\n"; return $self; } # Avoid spurious warnings as we are not checking manifest here. local $SIG{__WARN__} = sub {1}; require ExtUtils::Manifest; local *ExtUtils::Manifest::manicheck = sub { return }; require Module::Build; my $build = Module::Build->new( dist_name => $self->name, dist_version => $self->version, license => $self->license, ); $self->provides( %{ $build->find_dist_packages || {} } ); } sub feature { my $self = shift; my $name = shift; my $features = ( $self->{values}->{features} ||= [] ); my $mods; if ( @_ == 1 and ref( $_[0] ) ) { # The user used ->feature like ->features by passing in the second # argument as a reference. Accomodate for that. $mods = $_[0]; } else { $mods = \@_; } my $count = 0; push @$features, ( $name => [ map { ref($_) ? ( ref($_) eq 'HASH' ) ? %$_ : @$_ : $_ } @$mods ] ); return @$features; } sub features { my $self = shift; while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) { $self->feature( $name, @$mods ); } return $self->{values}->{features} ? @{ $self->{values}->{features} } : (); } sub no_index { my $self = shift; my $type = shift; push @{ $self->{values}->{no_index}->{$type} }, @_ if $type; return $self->{values}->{no_index}; } sub read { my $self = shift; $self->include_deps( 'YAML::Tiny', 0 ); require YAML::Tiny; my $data = YAML::Tiny::LoadFile('META.yml'); # Call methods explicitly in case user has already set some values. while ( my ( $key, $value ) = each %$data ) { next unless $self->can($key); if ( ref $value eq 'HASH' ) { while ( my ( $module, $version ) = each %$value ) { $self->can($key)->($self, $module => $version ); } } else { $self->can($key)->($self, $value); } } return $self; } sub write { my $self = shift; return $self unless $self->is_admin; $self->admin->write_meta; return $self; } sub version_from { require ExtUtils::MM_Unix; my ( $self, $file ) = @_; $self->version( ExtUtils::MM_Unix->parse_version($file) ); # for version integrity check $self->makemaker_args( VERSION_FROM => $file ); } sub abstract_from { require ExtUtils::MM_Unix; my ( $self, $file ) = @_; $self->abstract( bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )->parse_abstract($file) ); } # Add both distribution and module name sub name_from { my ($self, $file) = @_; if ( Module::Install::_read($file) =~ m/ ^ \s* package \s* ([\w:]+) [\s|;]* /ixms ) { my ($name, $module_name) = ($1, $1); $name =~ s{::}{-}g; $self->name($name); unless ( $self->module_name ) { $self->module_name($module_name); } } else { die("Cannot determine name from $file\n"); } } sub _extract_perl_version { if ( $_[0] =~ m/ ^\s* (?:use|require) \s* v? ([\d_\.]+) \s* ; /ixms ) { my $perl_version = $1; $perl_version =~ s{_}{}g; return $perl_version; } else { return; } } sub perl_version_from { my $self = shift; my $perl_version=_extract_perl_version(Module::Install::_read($_[0])); if ($perl_version) { $self->perl_version($perl_version); } else { warn "Cannot determine perl version info from $_[0]\n"; return; } } sub author_from { my $self = shift; my $content = Module::Install::_read($_[0]); if ($content =~ m/ =head \d \s+ (?:authors?)\b \s* ([^\n]*) | =head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s* .*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s* ([^\n]*) /ixms) { my $author = $1 || $2; # XXX: ugly but should work anyway... if (eval "require Pod::Escapes; 1") { # Pod::Escapes has a mapping table. # It's in core of perl >= 5.9.3, and should be installed # as one of the Pod::Simple's prereqs, which is a prereq # of Pod::Text 3.x (see also below). $author =~ s{ E<( (\d+) | ([A-Za-z]+) )> } { defined $2 ? chr($2) : defined $Pod::Escapes::Name2character_number{$1} ? chr($Pod::Escapes::Name2character_number{$1}) : do { warn "Unknown escape: E<$1>"; "E<$1>"; }; }gex; } elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) { # Pod::Text < 3.0 has yet another mapping table, # though the table name of 2.x and 1.x are different. # (1.x is in core of Perl < 5.6, 2.x is in core of # Perl < 5.9.3) my $mapping = ($Pod::Text::VERSION < 2) ? \%Pod::Text::HTML_Escapes : \%Pod::Text::ESCAPES; $author =~ s{ E<( (\d+) | ([A-Za-z]+) )> } { defined $2 ? chr($2) : defined $mapping->{$1} ? $mapping->{$1} : do { warn "Unknown escape: E<$1>"; "E<$1>"; }; }gex; } else { $author =~ s{E}{<}g; $author =~ s{E}{>}g; } $self->author($author); } else { warn "Cannot determine author info from $_[0]\n"; } } #Stolen from M::B my %license_urls = ( perl => 'http://dev.perl.org/licenses/', apache => 'http://apache.org/licenses/LICENSE-2.0', apache_1_1 => 'http://apache.org/licenses/LICENSE-1.1', artistic => 'http://opensource.org/licenses/artistic-license.php', artistic_2 => 'http://opensource.org/licenses/artistic-license-2.0.php', lgpl => 'http://opensource.org/licenses/lgpl-license.php', lgpl2 => 'http://opensource.org/licenses/lgpl-2.1.php', lgpl3 => 'http://opensource.org/licenses/lgpl-3.0.html', bsd => 'http://opensource.org/licenses/bsd-license.php', gpl => 'http://opensource.org/licenses/gpl-license.php', gpl2 => 'http://opensource.org/licenses/gpl-2.0.php', gpl3 => 'http://opensource.org/licenses/gpl-3.0.html', mit => 'http://opensource.org/licenses/mit-license.php', mozilla => 'http://opensource.org/licenses/mozilla1.1.php', open_source => undef, unrestricted => undef, restrictive => undef, unknown => undef, ); sub license { my $self = shift; return $self->{values}->{license} unless @_; my $license = shift or die( 'Did not provide a value to license()' ); $license = __extract_license($license) || lc $license; $self->{values}->{license} = $license; # Automatically fill in license URLs if ( $license_urls{$license} ) { $self->resources( license => $license_urls{$license} ); } return 1; } sub _extract_license { my $pod = shift; my $matched; return __extract_license( ($matched) = $pod =~ m/ (=head \d \s+ L(?i:ICEN[CS]E|ICENSING)\b.*?) (=head \d.*|=cut.*|)\z /xms ) || __extract_license( ($matched) = $pod =~ m/ (=head \d \s+ (?:C(?i:OPYRIGHTS?)|L(?i:EGAL))\b.*?) (=head \d.*|=cut.*|)\z /xms ); } sub __extract_license { my $license_text = shift or return; my @phrases = ( '(?:under )?the same (?:terms|license) as (?:perl|the perl (?:\d )?programming language)' => 'perl', 1, '(?:under )?the terms of (?:perl|the perl programming language) itself' => 'perl', 1, 'Artistic and GPL' => 'perl', 1, 'GNU general public license' => 'gpl', 1, 'GNU public license' => 'gpl', 1, 'GNU lesser general public license' => 'lgpl', 1, 'GNU lesser public license' => 'lgpl', 1, 'GNU library general public license' => 'lgpl', 1, 'GNU library public license' => 'lgpl', 1, 'GNU Free Documentation license' => 'unrestricted', 1, 'GNU Affero General Public License' => 'open_source', 1, '(?:Free)?BSD license' => 'bsd', 1, 'Artistic license 2\.0' => 'artistic_2', 1, 'Artistic license' => 'artistic', 1, 'Apache (?:Software )?license' => 'apache', 1, 'GPL' => 'gpl', 1, 'LGPL' => 'lgpl', 1, 'BSD' => 'bsd', 1, 'Artistic' => 'artistic', 1, 'MIT' => 'mit', 1, 'Mozilla Public License' => 'mozilla', 1, 'Q Public License' => 'open_source', 1, 'OpenSSL License' => 'unrestricted', 1, 'SSLeay License' => 'unrestricted', 1, 'zlib License' => 'open_source', 1, 'proprietary' => 'proprietary', 0, ); while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) { $pattern =~ s#\s+#\\s+#gs; if ( $license_text =~ /\b$pattern\b/i ) { return $license; } } return ''; } sub license_from { my $self = shift; if (my $license=_extract_license(Module::Install::_read($_[0]))) { $self->license($license); } else { warn "Cannot determine license info from $_[0]\n"; return 'unknown'; } } sub _extract_bugtracker { my @links = $_[0] =~ m#L<( https?\Q://rt.cpan.org/\E[^>]+| https?\Q://github.com/\E[\w_]+/[\w_]+/issues| https?\Q://code.google.com/p/\E[\w_\-]+/issues/list )>#gx; my %links; @links{@links}=(); @links=keys %links; return @links; } sub bugtracker_from { my $self = shift; my $content = Module::Install::_read($_[0]); my @links = _extract_bugtracker($content); unless ( @links ) { warn "Cannot determine bugtracker info from $_[0]\n"; return 0; } if ( @links > 1 ) { warn "Found more than one bugtracker link in $_[0]\n"; return 0; } # Set the bugtracker bugtracker( $links[0] ); return 1; } sub requires_from { my $self = shift; my $content = Module::Install::_readperl($_[0]); my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+(v?[\d\.]+)/mg; while ( @requires ) { my $module = shift @requires; my $version = shift @requires; $self->requires( $module => $version ); } } sub test_requires_from { my $self = shift; my $content = Module::Install::_readperl($_[0]); my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg; while ( @requires ) { my $module = shift @requires; my $version = shift @requires; $self->test_requires( $module => $version ); } } # Convert triple-part versions (eg, 5.6.1 or 5.8.9) to # numbers (eg, 5.006001 or 5.008009). # Also, convert double-part versions (eg, 5.8) sub _perl_version { my $v = $_[-1]; $v =~ s/^([1-9])\.([1-9]\d?\d?)$/sprintf("%d.%03d",$1,$2)/e; $v =~ s/^([1-9])\.([1-9]\d?\d?)\.(0|[1-9]\d?\d?)$/sprintf("%d.%03d%03d",$1,$2,$3 || 0)/e; $v =~ s/(\.\d\d\d)000$/$1/; $v =~ s/_.+$//; if ( ref($v) ) { # Numify $v = $v + 0; } return $v; } sub add_metadata { my $self = shift; my %hash = @_; for my $key (keys %hash) { warn "add_metadata: $key is not prefixed with 'x_'.\n" . "Use appopriate function to add non-private metadata.\n" unless $key =~ /^x_/; $self->{values}->{$key} = $hash{$key}; } } ###################################################################### # MYMETA Support sub WriteMyMeta { die "WriteMyMeta has been deprecated"; } sub write_mymeta_yaml { my $self = shift; # We need YAML::Tiny to write the MYMETA.yml file unless ( eval { require YAML::Tiny; 1; } ) { return 1; } # Generate the data my $meta = $self->_write_mymeta_data or return 1; # Save as the MYMETA.yml file print "Writing MYMETA.yml\n"; YAML::Tiny::DumpFile('MYMETA.yml', $meta); } sub write_mymeta_json { my $self = shift; # We need JSON to write the MYMETA.json file unless ( eval { require JSON; 1; } ) { return 1; } # Generate the data my $meta = $self->_write_mymeta_data or return 1; # Save as the MYMETA.yml file print "Writing MYMETA.json\n"; Module::Install::_write( 'MYMETA.json', JSON->new->pretty(1)->canonical->encode($meta), ); } sub _write_mymeta_data { my $self = shift; # If there's no existing META.yml there is nothing we can do return undef unless -f 'META.yml'; # We need Parse::CPAN::Meta to load the file unless ( eval { require Parse::CPAN::Meta; 1; } ) { return undef; } # Merge the perl version into the dependencies my $val = $self->Meta->{values}; my $perl = delete $val->{perl_version}; if ( $perl ) { $val->{requires} ||= []; my $requires = $val->{requires}; # Canonize to three-dot version after Perl 5.6 if ( $perl >= 5.006 ) { $perl =~ s{^(\d+)\.(\d\d\d)(\d*)}{join('.', $1, int($2||0), int($3||0))}e } unshift @$requires, [ perl => $perl ]; } # Load the advisory META.yml file my @yaml = Parse::CPAN::Meta::LoadFile('META.yml'); my $meta = $yaml[0]; # Overwrite the non-configure dependency hashes delete $meta->{requires}; delete $meta->{build_requires}; delete $meta->{recommends}; if ( exists $val->{requires} ) { $meta->{requires} = { map { @$_ } @{ $val->{requires} } }; } if ( exists $val->{build_requires} ) { $meta->{build_requires} = { map { @$_ } @{ $val->{build_requires} } }; } return $meta; } 1; Catalyst-View-Mason-0.19/inc/Module/Install/Win32.pm000644 000765 000024 00000003403 12450344055 024115 0ustar00jnapiorkowskistaff000000 000000 #line 1 package Module::Install::Win32; use strict; use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { $VERSION = '1.14'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } # determine if the user needs nmake, and download it if needed sub check_nmake { my $self = shift; $self->load('can_run'); $self->load('get_file'); require Config; return unless ( $^O eq 'MSWin32' and $Config::Config{make} and $Config::Config{make} =~ /^nmake\b/i and ! $self->can_run('nmake') ); print "The required 'nmake' executable not found, fetching it...\n"; require File::Basename; my $rv = $self->get_file( url => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe', ftp_url => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe', local_dir => File::Basename::dirname($^X), size => 51928, run => 'Nmake15.exe /o > nul', check_for => 'Nmake.exe', remove => 1, ); die <<'END_MESSAGE' unless $rv; ------------------------------------------------------------------------------- Since you are using Microsoft Windows, you will need the 'nmake' utility before installation. It's available at: http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe or ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe Please download the file manually, save it to a directory in %PATH% (e.g. C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to that directory, and run "Nmake15.exe" from there; that will create the 'nmake.exe' file needed by this module. You may then resume the installation process described in README. ------------------------------------------------------------------------------- END_MESSAGE } 1; Catalyst-View-Mason-0.19/inc/Module/Install/WriteAll.pm000644 000765 000024 00000002376 12450344055 024746 0ustar00jnapiorkowskistaff000000 000000 #line 1 package Module::Install::WriteAll; use strict; use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { $VERSION = '1.14'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } sub WriteAll { my $self = shift; my %args = ( meta => 1, sign => 0, inline => 0, check_nmake => 1, @_, ); $self->sign(1) if $args{sign}; $self->admin->WriteAll(%args) if $self->is_admin; $self->check_nmake if $args{check_nmake}; unless ( $self->makemaker_args->{PL_FILES} ) { # XXX: This still may be a bit over-defensive... unless ($self->makemaker(6.25)) { $self->makemaker_args( PL_FILES => {} ) if -f 'Build.PL'; } } # Until ExtUtils::MakeMaker support MYMETA.yml, make sure # we clean it up properly ourself. $self->realclean_files('MYMETA.yml'); if ( $args{inline} ) { $self->Inline->write; } else { $self->Makefile->write; } # The Makefile write process adds a couple of dependencies, # so write the META.yml files after the Makefile. if ( $args{meta} ) { $self->Meta->write; } # Experimental support for MYMETA if ( $ENV{X_MYMETA} ) { if ( $ENV{X_MYMETA} eq 'JSON' ) { $self->Meta->write_mymeta_json; } else { $self->Meta->write_mymeta_yaml; } } return 1; } 1;