File Coverage

blib/lib/Data/Fake/MetaSyntactic.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	2	2	100.0
total	31	34	91.1

package Data::Fake::MetaSyntactic;
$Data::Fake::MetaSyntactic::VERSION = '1.000';
use strict;
use warnings;
use Exporter 5.57 qw( import );

our @EXPORT = qw( fake_meta fake_metatheme );

use Acme::MetaSyntactic ();
my @themes = grep $_ ne 'any', Acme::MetaSyntactic->themes;

sub fake_meta {
    my ($theme) = @_;
    $theme ||= fake_metatheme()->();

    my $meta = Acme::MetaSyntactic->new;
    return sub {
        $meta->name( ref $theme eq 'CODE' ? $theme->() : $theme );
    };
}

sub fake_metatheme {
    return sub { $themes[ rand @themes ] };
}

1;

__END__

=head1 NAME

Data::Fake::MetaSyntactic - Fake metasyntactic data generators

=head1 SYNOPSIS

    use Data::Fake::MetaSyntactic;

    fake_metatheme()->();   # foo, donmartin, weekdays, etc.
    fake_meta()->();        # titi, GING_GOYNG, wednesday, etc.

=head1 DESCRIPTION

This module provides fake data generators for L<Acme::MetaSyntactic>.

All functions are exported by default.

=head1 FUNCTIONS

=head2 fake_meta

    $generator = fake_name( $theme );

Returns a generator that provides a randomly selected item from the
given L<Acme::MetaSyntactic> theme.

If no C<$theme> is given, a random theme is picked, among the installed
ones.

=head2 fake_metatheme

    $generator = fake_metatheme();

Returns a generator that provides a random L<Acme::MetaSyntactic> theme name,
among the installed ones.

=head1 AUTHOR

Philippe Bruhat (BooK), <[e-mail]>.

=head1 COPYRIGHT

Copyright 2015 Philippe Bruhat (BooK), all rights reserved.

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut