[Catalyst-commits] r7083 - in trunk/Catalyst-View-vCard: .
lib/Catalyst/View t
bricas at dev.catalyst.perl.org
bricas at dev.catalyst.perl.org
Wed Oct 31 12:50:23 GMT 2007
Author: bricas
Date: 2007-10-31 12:50:22 +0000 (Wed, 31 Oct 2007)
New Revision: 7083
Added:
trunk/Catalyst-View-vCard/MANIFEST.SKIP
trunk/Catalyst-View-vCard/Makefile.PL
Removed:
trunk/Catalyst-View-vCard/Build.PL
trunk/Catalyst-View-vCard/MANIFEST
Modified:
trunk/Catalyst-View-vCard/Changes
trunk/Catalyst-View-vCard/lib/Catalyst/View/vCard.pm
trunk/Catalyst-View-vCard/t/01-use.t
trunk/Catalyst-View-vCard/t/98-pod_coverage.t
trunk/Catalyst-View-vCard/t/99-pod.t
Log:
switch to Module::Install. line endings, tabs, perltidy.
Deleted: trunk/Catalyst-View-vCard/Build.PL
===================================================================
--- trunk/Catalyst-View-vCard/Build.PL 2007-10-31 06:31:15 UTC (rev 7082)
+++ trunk/Catalyst-View-vCard/Build.PL 2007-10-31 12:50:22 UTC (rev 7083)
@@ -1,17 +0,0 @@
-use strict;
-
-use Module::Build;
-
-my $build = Module::Build->new(
- module_name => 'Catalyst::View::vCard',
- dist_author => 'Brian Cassidy <bricas at cpan.org>',
- license => 'perl',
- create_readme => 1,
- create_makefile_pl => 'traditional',
- requires => {
- 'Catalyst' => 0,
- 'Text::vCard' => 0,
- },
-);
-
-$build->create_build_script;
\ No newline at end of file
Modified: trunk/Catalyst-View-vCard/Changes
===================================================================
--- trunk/Catalyst-View-vCard/Changes 2007-10-31 06:31:15 UTC (rev 7082)
+++ trunk/Catalyst-View-vCard/Changes 2007-10-31 12:50:22 UTC (rev 7083)
@@ -1,4 +1,7 @@
-Revision history for Perl extension Catalyst::View::vCard.
-
-0.01 Tue Jan 10 2005
- - original version
\ No newline at end of file
+Revision history for Perl extension Catalyst::View::vCard.
+
+0.02 Wed Oct 31 2007
+ - switch to Module::Install
+
+0.01 Tue Jan 10 2006
+ - original version
Deleted: trunk/Catalyst-View-vCard/MANIFEST
===================================================================
--- trunk/Catalyst-View-vCard/MANIFEST 2007-10-31 06:31:15 UTC (rev 7082)
+++ trunk/Catalyst-View-vCard/MANIFEST 2007-10-31 12:50:22 UTC (rev 7083)
@@ -1,8 +0,0 @@
-Build.PL
-Changes
-lib/Catalyst/View/vCard.pm
-MANIFEST This list of files
-META.yml
-t/01-use.t
-t/98-pod_coverage.t
-t/99-pod.t
\ No newline at end of file
Added: trunk/Catalyst-View-vCard/MANIFEST.SKIP
===================================================================
--- trunk/Catalyst-View-vCard/MANIFEST.SKIP (rev 0)
+++ trunk/Catalyst-View-vCard/MANIFEST.SKIP 2007-10-31 12:50:22 UTC (rev 7083)
@@ -0,0 +1,32 @@
+# Avoid version control files.
+\bRCS\b
+\bCVS\b
+,v$
+\B\.svn\b
+
+# Avoid Makemaker generated and utility files.
+\bMakefile$
+\bblib
+\bMakeMaker-\d
+\bpm_to_blib$
+\bblibdirs$
+^MANIFEST\.SKIP$
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\b_build
+
+# Avoid temp and backup files.
+~$
+\.tmp$
+\.old$
+\.bak$
+\#$
+\b\.#
+^..*\.sw[po]$
+
+\.DS_Store$
+\.tar\.gz$
+
+# Module::Bane
+\bBuild.PL$
Added: trunk/Catalyst-View-vCard/Makefile.PL
===================================================================
--- trunk/Catalyst-View-vCard/Makefile.PL (rev 0)
+++ trunk/Catalyst-View-vCard/Makefile.PL 2007-10-31 12:50:22 UTC (rev 7083)
@@ -0,0 +1,16 @@
+use inc::Module::Install 0.67;
+
+if( -e 'MANIFEST.SKIP' ) {
+ system( 'pod2text lib/Catalyst/View/vCard.pm > README' );
+}
+
+name 'Catalyst-View-vCard';
+all_from 'lib/Catalyst/View/vCard.pm';
+
+requires 'Catalyst::Runtime';
+requires 'Text::vCard';
+
+test_requires 'Test::More';
+
+auto_install;
+WriteAll;
Modified: trunk/Catalyst-View-vCard/lib/Catalyst/View/vCard.pm
===================================================================
--- trunk/Catalyst-View-vCard/lib/Catalyst/View/vCard.pm 2007-10-31 06:31:15 UTC (rev 7082)
+++ trunk/Catalyst-View-vCard/lib/Catalyst/View/vCard.pm 2007-10-31 12:50:22 UTC (rev 7083)
@@ -7,26 +7,27 @@
use Text::vCard::Addressbook;
-our $VERSION = '0.01';
-my @fields = qw(
+our $VERSION = '0.02';
+
+my @fields = qw(
fn fullname email bd birthday mailer tz timezone
title role note prodid rev uid url class nickname
photo version
-);
+);
=head1 NAME
-
+
Catalyst::View::vCard - vCard view for Catalyst
-
+
=head1 SYNOPSIS
-
+
# in a controller...
my $profile = $foo;
-
- $c->stash->{ vcards } = [ $profile ];
- $c->stash->{ filename } = $profile->username;
- $c->forward( $c->view( 'vCard' ) );
+ $c->stash->{ vcards } = [ $profile ];
+ $c->stash->{ filename } = $profile->username;
+ $c->forward( $c->view( 'vCard' ) );
+
# in a view...
package MyApp::View:;vCard;
@@ -41,15 +42,15 @@
}
=head1 DESCRIPTION
-
+
This is a view to help you serialize objects to vCard output. You can configure
the output filename by supplying a name in C<$c->stash->{ filename }> (a C<.vcf>
extension will automatically added for you). A default C<convert_to_vcard>
implementation is provided, however you can provide your own to map your object
-to a L<Text::vCard> object.
-
-=head1 METHODS
+to a L<Text::vCard> object.
+=head1 METHODS
+
=head2 process( \@vcards )
This method will loop through and call C<convert_to_vcard> on all of the items in the
@@ -58,19 +59,20 @@
=cut
sub process {
- my( $self, $c, $vcards ) = @_;
- $vcards = $c->stash->{ vcards } unless ref $vcards;
+ my ( $self, $c, $vcards ) = @_;
+ $vcards = $c->stash->{ vcards } unless ref $vcards;
my $book = Text::vCard::Addressbook->new;
-
+
for my $object ( @$vcards ) {
my $vcard = $book->add_vcard;
$self->convert_to_vcard( $c, $object, $vcard );
}
my $filename = $c->stash->{ filename } || 'vcard';
-
+
$c->res->content_type( 'text/x-vcard; charset: UTF-8' );
- $c->res->header( 'Content-Disposition' => qq(inline; filename="$filename.vcf") );
+ $c->res->header(
+ 'Content-Disposition' => qq(inline; filename="$filename.vcf") );
$c->res->body( $book->export );
return 1;
@@ -85,45 +87,40 @@
=cut
sub convert_to_vcard {
- my( $self, $c, $in, $out ) = @_;
-
+ my ( $self, $c, $in, $out ) = @_;
+
return unless my $type = ref $in;
-
- for( @fields ) {
- my $value = $type eq 'HASH'
- ? $in->{ $_ }
- : $in->can( $_ )
- ? $in->$_
- : undef;
+
+ for ( @fields ) {
+ my $value
+ = $type eq 'HASH' ? $in->{ $_ }
+ : $in->can( $_ ) ? $in->$_
+ : undef;
$out->$_( $value ) if $value;
}
}
-=head1 AUTHOR
-
-=over 4
-
-=item * Brian Cassidy E<lt>bricas at cpan.orgE<gt>
-
-=back
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2006 by Brian Cassidy
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-=over 4
-
-=item * L<Catalyst>
-
-=item * L<Text::vCard>
-
-=back
-
+=head1 AUTHOR
+
+Brian Cassidy E<lt>bricas at cpan.orgE<gt>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2007 by Brian Cassidy
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item * L<Catalyst>
+
+=item * L<Text::vCard>
+
+=back
+
=cut
-1;
\ No newline at end of file
+1;
Modified: trunk/Catalyst-View-vCard/t/01-use.t
===================================================================
--- trunk/Catalyst-View-vCard/t/01-use.t 2007-10-31 06:31:15 UTC (rev 7082)
+++ trunk/Catalyst-View-vCard/t/01-use.t 2007-10-31 12:50:22 UTC (rev 7083)
@@ -1,5 +1,5 @@
-use Test::More tests => 1;
-
-BEGIN {
- use_ok( 'Catalyst::View::vCard' );
-}
+use Test::More tests => 1;
+
+BEGIN {
+ use_ok( 'Catalyst::View::vCard' );
+}
Modified: trunk/Catalyst-View-vCard/t/98-pod_coverage.t
===================================================================
--- trunk/Catalyst-View-vCard/t/98-pod_coverage.t 2007-10-31 06:31:15 UTC (rev 7082)
+++ trunk/Catalyst-View-vCard/t/98-pod_coverage.t 2007-10-31 12:50:22 UTC (rev 7083)
@@ -1,4 +1,4 @@
-use Test::More;
-eval "use Test::Pod::Coverage 1.00";
-plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@;
-all_pod_coverage_ok();
\ No newline at end of file
+use Test::More;
+eval "use Test::Pod::Coverage 1.00";
+plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@;
+all_pod_coverage_ok();
Modified: trunk/Catalyst-View-vCard/t/99-pod.t
===================================================================
--- trunk/Catalyst-View-vCard/t/99-pod.t 2007-10-31 06:31:15 UTC (rev 7082)
+++ trunk/Catalyst-View-vCard/t/99-pod.t 2007-10-31 12:50:22 UTC (rev 7083)
@@ -1,4 +1,4 @@
-use Test::More;
-eval "use Test::Pod 1.00";
-plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
-all_pod_files_ok();
\ No newline at end of file
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
More information about the Catalyst-commits
mailing list