[Catalyst-commits] r6411 - in trunk/Catalyst-Helper-Graphics: .
images lib lib/Catalyst lib/Catalyst/Helper
lib/Catalyst/Helper/Graphics t
jshirley at dev.catalyst.perl.org
jshirley at dev.catalyst.perl.org
Sat May 19 18:37:06 GMT 2007
Author: jshirley
Date: 2007-05-19 18:37:02 +0100 (Sat, 19 May 2007)
New Revision: 6411
Added:
trunk/Catalyst-Helper-Graphics/Changes
trunk/Catalyst-Helper-Graphics/MANIFEST
trunk/Catalyst-Helper-Graphics/Makefile.PL
trunk/Catalyst-Helper-Graphics/images/
trunk/Catalyst-Helper-Graphics/images/cat_loading.gif
trunk/Catalyst-Helper-Graphics/lib/
trunk/Catalyst-Helper-Graphics/lib/Catalyst/
trunk/Catalyst-Helper-Graphics/lib/Catalyst/Helper/
trunk/Catalyst-Helper-Graphics/lib/Catalyst/Helper/Graphics.pm
trunk/Catalyst-Helper-Graphics/lib/Catalyst/Helper/Graphics/
trunk/Catalyst-Helper-Graphics/lib/Catalyst/Helper/Graphics/Files.pm
trunk/Catalyst-Helper-Graphics/pack_images.pl
trunk/Catalyst-Helper-Graphics/t/
trunk/Catalyst-Helper-Graphics/t/01use.t
trunk/Catalyst-Helper-Graphics/t/02pod.t
trunk/Catalyst-Helper-Graphics/t/03podcoverage.t
Log:
Adding Catalyst::Helper::Graphics into the repos, about time. Feel free to add new images :)
Added: trunk/Catalyst-Helper-Graphics/Changes
===================================================================
--- trunk/Catalyst-Helper-Graphics/Changes (rev 0)
+++ trunk/Catalyst-Helper-Graphics/Changes 2007-05-19 17:37:02 UTC (rev 6411)
@@ -0,0 +1,5 @@
+This file documents the revision history for Perl extension Catalyst-Helper-Graphics.
+
+.01 2006-11-24 19:25:00
+ - Initial release
+
Added: trunk/Catalyst-Helper-Graphics/MANIFEST
===================================================================
--- trunk/Catalyst-Helper-Graphics/MANIFEST (rev 0)
+++ trunk/Catalyst-Helper-Graphics/MANIFEST 2007-05-19 17:37:02 UTC (rev 6411)
@@ -0,0 +1,9 @@
+images/cat_loading.gif
+lib/Catalyst/Helper/Graphics.pm
+lib/Catalyst/Helper/Graphics/Files.pm
+Makefile.PL
+MANIFEST This list of files
+pack_images.pl
+t/01use.t
+t/02pod.t
+t/03podcoverage.t
Added: trunk/Catalyst-Helper-Graphics/Makefile.PL
===================================================================
--- trunk/Catalyst-Helper-Graphics/Makefile.PL (rev 0)
+++ trunk/Catalyst-Helper-Graphics/Makefile.PL 2007-05-19 17:37:02 UTC (rev 6411)
@@ -0,0 +1,12 @@
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+ NAME => 'Catalyst::Helper::Graphics',
+ AUTHOR => 'J. Shirley <jshirley at gmail.com>',
+ PREREQ_PM => {
+ 'Catalyst' => '5.00',
+ 'File::Spec' => 0,
+ },
+ VERSION_FROM => 'lib/Catalyst/Helper/Graphics.pm'
+);
+
Added: trunk/Catalyst-Helper-Graphics/images/cat_loading.gif
===================================================================
(Binary files differ)
Property changes on: trunk/Catalyst-Helper-Graphics/images/cat_loading.gif
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added: trunk/Catalyst-Helper-Graphics/lib/Catalyst/Helper/Graphics/Files.pm
===================================================================
--- trunk/Catalyst-Helper-Graphics/lib/Catalyst/Helper/Graphics/Files.pm (rev 0)
+++ trunk/Catalyst-Helper-Graphics/lib/Catalyst/Helper/Graphics/Files.pm 2007-05-19 17:37:02 UTC (rev 6411)
@@ -0,0 +1,9 @@
+package #
+ Catalyst::Helper::Graphics::Files;
+
+1;
+
+__DATA__
+
+__cat_loading.gif__
+47494638396114001400e7ef00dc0101da0202dd0101e20202e60202e90101ea0101ea0202ee0202e30a0af60202e30c0cde1212f60b0bd31c1cf60d0dd21e1eeb1414de1a1add1d1ddf1f1fc62a2ae01f1fce2a2add2525dc2727d62a2add2727e02727f61f1fde2a2ad43030dc2d2de12d2dd43535e53131d33939f62a2ad63a3ad43b3bce3e3efe2a2ad23e3ede3a3aef3333cd4242cd4444e83939d94040d94242de4343de4545f93e3ed35151e74949e64a4ae04d4dde4e4ee14d4dd65252e24d4de24e4ed65555da5454d85555d65656e65252d45a5ad25b5bd65a5af84c4cd95a5ae25757d75c5ce65656e85656dd5b5bdc5c5cea5656da5d5de05b5be15c5cdb6060e25e5ed96262d76464e36060e06262e06363ec5f5fe36363e66262e06969de6a6ada6c6cdb6e6ef16565ec6969f16a6adf7373fb6e6ef07373e47a7ade7e7ef37575ee7878e17e7ee57d7df67a7aeb8181f27e7ee48585e28686e18787e68686ec8484fa7e7ef68181e98787e78888fa8282e68b8be28e8ee48e8ee39090ee8e8efa8a8ae89292f19191ee9393f29292f69797f29a9ae79f9ff29c9cf39d9deaa1a1eaa2a2eba3a3eda3a3f2a1a1f0a2a2f0a3a3eaa6a6efa4a4eba6a6f3a5a5f2a6a6eaaaaaeaacacedababf1aaaaf7a8a8eaaeaefda8a8ecb0b0f0afafebb2b2f3afafedb2b2ebb3b3eeb2b2eeb3b3edb5b5f9b0b0f6b2b2fdb0b0f6b4b4f5b5b5ecb9b9f3b8b8f7b9b9f6babafbbcbcf0c2c2f6c1c1eec5c5f5c2c2f1c4c4f7c2c2f4c5c5f1c7c7f2c7c7f0c9c9f7c6c6f8c6c6f4c8c8f2cbcbf8cacaf2cecef7cecef6d0d0f9cfcff7d0d0fad2d2f8d3d3f4d5d5f4d6d6f6d6d6f4d8d8f9d6d6f6dadaf5dbdbf5ddddfbddddf8e1e1f8e4e4fde2e2fbe5e5fae6e6fbe6e6fde6e6fbe8e8fdebebfbececfcececfeeeeefcefeffaf0f0fbf1f1fbf2f2fdf3f3fcf4f4fbf5f5fdf5f5fcf6f6fdf6f6fef6f6fcf7f7fdf7f7fcf8f8fcf9f9fdf9f9fdfafafefafafdfbfbfdfcfcfdfdfdfefefeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff21ff0b4e45545343415045322e30030100000021fe15437265617465642077697468205468652047494d500021f904011400ff002c020002001000100000087a00dd091c48b0a0c182a128853a68b0480e250c0b7661c026e2c0717db0591cc8aa94c568672a543091cce2191470e0a83863f182891c3d56682898e951266cc220041840608087824172dc103469cb00040a10381947508f043ceadc45735322051d4284a26e74a78e959c4499b6badb91438858a77ec4120c080021f904011400ff002c00000000140014000008c000ff091cf8af5d3b8208130a34c850a14386101d12844851e2428a10c33dc408f1532d6d0921a6630771141033a2d61d14d84919c35d9552b513776d0d8625aa0c0aa472e54f33709b92d468416411aa57b94835fca7c5469853b8447cf8a1c647935f2a231a6cf5cc579b0c0038e888e16519c6820cd7057b51a040820d58ce62a456a7c383032168c9e5a8890c1840e92a5ec4880e97a16c1111728476c958e29014c7e471f56da54486b798e0b013d8e2c56f73c4ccb2ec196d359d0403020021f904011400ff002c00000000140014000008c600ff091c485060bb760513163cc850614286101d12844851e21e621423269435234a2672191b0e6458268ba36eedce6d4b57d120c369cc0c0143f4850fa88c2e21c6b2e280440d17b0dab16b57cc96b99cedd60d1b210004972a4390495374e44d2fa4ed56b130b080c793139018059a80c45238a4e26834286001461c67dec00d3a640de13f8aa68c44a00005e3c17222ef42c494c653c883130fb2e32509dd61bb4839e91a8af321b7425222555698728a8c3bc7024b6c870a4d237388258e6c572db5c2800021f904011400ff002c020002001000100000088900ff091c48b0a0407708dde9099229a14377ff1c4ac8f1e861c28809f1dc686811a2437582b075f4e87092b091181146db02e1c299680f53ba73332080091467623a2c8160400e381574264ca180400fa04211d2e9b942850956e32e265447c889070d679295ead3a548a894ac084575888d410e4a11f5ec90a3ae231b255fdd4d4c34526add870101003b
Added: trunk/Catalyst-Helper-Graphics/lib/Catalyst/Helper/Graphics.pm
===================================================================
--- trunk/Catalyst-Helper-Graphics/lib/Catalyst/Helper/Graphics.pm (rev 0)
+++ trunk/Catalyst-Helper-Graphics/lib/Catalyst/Helper/Graphics.pm 2007-05-19 17:37:02 UTC (rev 6411)
@@ -0,0 +1,59 @@
+package Catalyst::Helper::Graphics;
+
+use warnings;
+use strict;
+
+our $VERSION = '0.1';
+
+use Catalyst::Helper::Graphics::Files;
+
+=head1 NAME
+
+Catalyst::Helper::Graphics
+
+=head1 SYNOPSIS
+
+ script/myapp_create.pl Graphics
+
+See L<Catalyst::Manual::Intro> for more details
+
+=head2 METHODS
+
+=over
+
+=item mk_stuff
+
+Creates the individual files. To add another graphic file, place it in the
+images/ directory and run C<pack_images.pl> to update the auto-generated
+C<Catalyst::Helper::Graphics::Files>. Make sure to update @images as well.
+
+=cut
+
+sub mk_stuff {
+ my ( $self, $helper, @args ) = @_;
+
+ my @images = qw/cat_loading.gif/;
+ my $image_path = File::Spec->catdir($helper->{base}, 'root', 'static', 'images');
+
+ for my $name ( @images ) {
+ my $hex = $helper->get_file(
+ 'Catalyst::Helper::Graphics::Files',
+ $name );
+ my $image = pack "H*", $hex;
+ $helper->mk_file( File::Spec->catfile( $image_path, $name ),
+ $image );
+ }
+}
+
+=head1 AUTHOR
+
+J. Shirley, <jshirley at gmail.com>
+
+=head1 LICENSE
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+1;
Added: trunk/Catalyst-Helper-Graphics/pack_images.pl
===================================================================
--- trunk/Catalyst-Helper-Graphics/pack_images.pl (rev 0)
+++ trunk/Catalyst-Helper-Graphics/pack_images.pl 2007-05-19 17:37:02 UTC (rev 6411)
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use File::Spec;
+
+my $image_dir = File::Spec->catdir('images');
+
+open(my $fh, ">lib/Catalyst/Helper/Graphics/Files.pm");
+print $fh qq|package #\n\tCatalyst::Helper::Graphics::Files;
+
+1;
+
+__DATA__
+
+|;
+
+opendir(my $dir, $image_dir);
+foreach my $file ( readdir($dir) ) {
+ next if $file =~ /^\./;
+ open(my $image_fh, "$image_dir/$file")
+ or die "Can't open $image_dir/$file: $!\n";
+ my $image = unpack "H*", join('', <$image_fh>);
+ close($image_fh);
+
+ print $fh qq|__${file}__
+$image
+|;
+
+}
+
+close($fh);
Added: trunk/Catalyst-Helper-Graphics/t/01use.t
===================================================================
--- trunk/Catalyst-Helper-Graphics/t/01use.t (rev 0)
+++ trunk/Catalyst-Helper-Graphics/t/01use.t 2007-05-19 17:37:02 UTC (rev 6411)
@@ -0,0 +1,5 @@
+use Test::More tests => 2;
+
+use_ok('Catalyst::Helper::Graphics');
+use_ok('Catalyst::Helper::Graphics::Files');
+
Added: trunk/Catalyst-Helper-Graphics/t/02pod.t
===================================================================
--- trunk/Catalyst-Helper-Graphics/t/02pod.t (rev 0)
+++ trunk/Catalyst-Helper-Graphics/t/02pod.t 2007-05-19 17:37:02 UTC (rev 6411)
@@ -0,0 +1,8 @@
+use Test::More;
+
+eval "use Test::Pod 1.14";
+plan skip_all => 'Test::Pod 1.14 required' if $@;
+plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+
+all_pod_files_ok();
+
Added: trunk/Catalyst-Helper-Graphics/t/03podcoverage.t
===================================================================
--- trunk/Catalyst-Helper-Graphics/t/03podcoverage.t (rev 0)
+++ trunk/Catalyst-Helper-Graphics/t/03podcoverage.t 2007-05-19 17:37:02 UTC (rev 6411)
@@ -0,0 +1,8 @@
+use Test::More;
+
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
+plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+
+all_pod_coverage_ok();
+
More information about the Catalyst-commits
mailing list