summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJonas Smedegaard <jonas@atreju.jones.dk>2012-10-11 22:27:30 +0200
committerJonas Smedegaard <jonas@atreju.jones.dk>2012-10-11 22:39:39 +0200
commit80f023217b63b3a29937c33486a480b2b7fdc17b (patch)
treed2d37a73630c71a7aedf53d43024d40d91f8106a
parent3227de7c455d893ab94414d7c2df27c56c31ec17 (diff)
Improve standard boilerplate.
-rw-r--r--lib/App/smsg.pm51
-rw-r--r--lib/App/smsg/Command/Talk.pm18
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>