File Coverage

blib/lib/Acme/XAppender.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	16	16	100.0

package Acme::XAppender;

use strict;
use warnings;

our $VERSION = '1.001001'; # VERSION

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(append);

my @Ways = (
    sub { my $str = shift; "${str}x"; },
    sub { my $str = shift; $str . 'x'; },
    sub { my $str = shift; my @x = $str; "$x[0]x"; },
    sub { my $str = shift; join('x', $str, ''); },
    sub { my $str = shift; join 'x', $str, !!$[; },
    sub { my $str = shift; my $out; $out .= $_ for $str, 'x'; $out },
    sub { my $str = shift; $str =~ s/\z/x/r; },
    sub {
        my $str = shift;
        substr +(my $str1 = $str), length($str), 0, 'x';
        $str1
    },
    sub { my $str = shift; $str = reverse $str; reverse "x$str" },
);

sub append {
    my $str = shift;

    return $Ways[rand @Ways]->( $str );
}

'
A SQL query goes into a bar, walks up to two tables and asks,
    "Can I join you?"
';

__END__