From bf8d69b5e695b5eb7f844772399558014f7a9721 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Tue, 23 May 2023 12:56:34 +0200
Subject: [PATCH] Split documentation for RevBank::Global
---
lib/RevBank/Global.pm | 47 ------------------------------------------
lib/RevBank/Global.pod | 45 ++++++++++++++++++++++++++++++++++++++++
2 files changed, 45 insertions(+), 47 deletions(-)
create mode 100644 lib/RevBank/Global.pod
diff --git a/lib/RevBank/Global.pm b/lib/RevBank/Global.pm
index 0a5ad45..07425dd 100644
--- a/lib/RevBank/Global.pm
+++ b/lib/RevBank/Global.pm
@@ -51,50 +51,3 @@ sub import {
__PACKAGE__->import;
1;
-__END__
-
-=head1 NAME
-
-RevBank::Global - Constants and utility functions
-
-=head1 SYNOPSIS
-
- use RevBank::Global;
-
-=head1 DESCRIPTION
-
-This module unconditionally exports the following symbols into the calling
-namespace:
-
-=head2 ACCEPT, ABORT, REJECT, NEXT, DONE
-
-Return codes for plugins. See L<RevBank::Plugins>.
-
-=head2 say
-
-Print with newline, in case your Perl version doesn't already have a C<say>.
-
-=head2 call_hooks($hook, @arguments)
-
-See C<call_hooks> in L<RevBank::Plugins>.
-
-=head2 parse_amount($amount)
-
-Returns the amount given if it is well formed, undef if it was not. Dies if
-the given amount exceeds certain boundaries.
-
-Commas are changed to periods so C<3,50> and C<3.50> both result in C<3.5>.
-
-=head2 parse_user($username)
-
-See C<parse_user> in L<RevBank::Users>.
-
-Returns the canonical username, or undef if the account does not exist.
-
-=head1 AUTHOR
-
-Juerd Waalboer <#####@juerd.nl>
-
-=head1 LICENSE
-
-Pick your favourite OSI license.
diff --git a/lib/RevBank/Global.pod b/lib/RevBank/Global.pod
new file mode 100644
index 0000000..a368029
--- /dev/null
+++ b/lib/RevBank/Global.pod
@@ -0,0 +1,45 @@
+=head1 NAME
+
+RevBank::Global - Constants and utility functions
+
+=head1 SYNOPSIS
+
+ use RevBank::Global;
+
+=head1 DESCRIPTION
+
+This module unconditionally exports the following symbols into the calling
+namespace:
+
+=head2 ACCEPT, ABORT, REJECT, NEXT, DONE
+
+Return codes for plugins. See L<RevBank::Plugins>.
+
+=head2 say
+
+Print with newline, in case your Perl version doesn't already have a C<say>.
+
+=head2 call_hooks($hook, @arguments)
+
+See C<call_hooks> in L<RevBank::Plugins>.
+
+=head2 parse_amount($amount)
+
+Returns the amount given if it is well formed, undef if it was not. Dies if
+the given amount exceeds certain boundaries.
+
+Commas are changed to periods so C<3,50> and C<3.50> both result in C<3.5>.
+
+=head2 parse_user($username)
+
+See C<parse_user> in L<RevBank::Users>.
+
+Returns the canonical username, or undef if the account does not exist.
+
+=head1 AUTHOR
+
+Juerd Waalboer <#####@juerd.nl>
+
+=head1 LICENSE
+
+Pick your favourite OSI license.