From 80f023217b63b3a29937c33486a480b2b7fdc17b Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <jonas@atreju.jones.dk>
Date: Thu, 11 Oct 2012 22:27:30 +0200
Subject: Improve standard boilerplate.

---
 lib/App/smsg.pm              | 51 +++++++++++++++++++++++++++++++++++++++++++-
 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>
-- 
cgit v1.2.3