diff options
author | Jonas Smedegaard <jonas@atreju.jones.dk> | 2012-10-11 22:27:30 +0200 |
---|---|---|
committer | Jonas Smedegaard <jonas@atreju.jones.dk> | 2012-10-11 22:39:39 +0200 |
commit | 80f023217b63b3a29937c33486a480b2b7fdc17b (patch) | |
tree | d2d37a73630c71a7aedf53d43024d40d91f8106a | |
parent | 3227de7c455d893ab94414d7c2df27c56c31ec17 (diff) |
Improve standard boilerplate.
-rw-r--r-- | lib/App/smsg.pm | 51 | ||||
-rw-r--r-- | lib/App/smsg/Command/Talk.pm | 18 |
2 files changed, 58 insertions, 11 deletions
diff --git a/lib/App/smsg.pm b/lib/App/smsg.pm index 38bfec1..ff7c0e3 100644 --- a/lib/App/smsg.pm +++ b/lib/App/smsg.pm @@ -1,5 +1,54 @@ package App::smsg; -use App::Cmd::Setup -app; +use 5.010; +use strict; +use warnings; +use utf8; + +BEGIN { + $App::perlrdf::AUTHORITY = 'https://dr.jones.dk/me#me'; + $App::perlrdf::VERSION = '0.001'; +} + +use App::Cmd::Setup -app => { + plugins => [qw( Prompt )], +}; +use Object::AUTHORITY; 1; + +__END__ + +=head1 NAME + +smsg - utilities for short messages + +=head1 DESCRIPTION + +Support library for the L<smsg> command-line tool. + +=head1 BUGS + +Please report any bugs to +E<lt>dr@jones.dkE<gt>. + +=head1 SEE ALSO + +L<smsg>. + +=head1 AUTHOR + +Jonas Smedegaard E<lt>dr@jones.dkE<gt>. + +=head1 COPYRIGHT AND LICENCE + +This software is copyright (c) 2012 by Jonas Smedegaard. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +=head1 DISCLAIMER OF WARRANTIES + +THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED +WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF +MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. diff --git a/lib/App/smsg/Command/Talk.pm b/lib/App/smsg/Command/Talk.pm index e31725b..636633f 100644 --- a/lib/App/smsg/Command/Talk.pm +++ b/lib/App/smsg/Command/Talk.pm @@ -1,9 +1,17 @@ package App::smsg::Command::Talk; +use 5.010; use strict; +use warnings; use utf8; +BEGIN { + $App::smsg::Command::Talk::AUTHORITY = 'https://dr.jones.dk/me#me'; + $App::smsg::Command::Talk::VERSION = '0.001'; +} + use App::smsg -command; +use namespace::clean; use AnyEvent; use AnyEvent::XMPP::Client; @@ -145,13 +153,3 @@ $j->wait; } 1; - -__END__ - -=head1 COPYRIGHT - -2012 © Jonas Smedegaard <dr@jones.dk> - -=head1 BUGS - -Send Bug Reports to Jonas Smedegaard <dr@jones.dk> |