warn @_;
}
-=for Pod::Coverage
- print_usage_text
-=cut
sub print_usage_text {
my $self = shift;
pod2usage();
The method invoked to run the application.
+=head2 print_usage_text
+
+Prints out the usage text for the script you tried to invoke.
+
=head1 ATTRIBUTES
=head2 application_name