The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package DBIx::Table::TestDataGenerator::String;
use Moo;

use strict;
use warnings;

our $VERSION = "0.005";
$VERSION = eval $VERSION;

use Carp;

sub remove_package_prefix {
    my ( $self, $pck_name ) = @_;
    $pck_name =~ s/(?:.*::)?([^:]+)/$1/;
    return $pck_name;
}

1;    # End of DBIx::Table::TestDataGenerator::String

__END__

=pod

=head1 NAME

DBIx::Table::TestDataGenerator::String - string manipulation

=head1 DESCRIPTION

This measly utility class collects methods operating purely on strings. I could not find a better place to stuck the sole method in, so here it is.

=head1 SUBROUTINES/METHODS

=head2 remove_package_prefix

Argument: package name.

Returns the last part of the package name.

=head1 AUTHOR

Jose Diaz Seng, C<< <josediazseng at gmx.de> >>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2012-2013, Jose Diaz Seng.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl 5.10.0. For more details, see the full text of the licenses in the directory LICENSES.

This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose.