File Coverage

blib/lib/App/Math/Tutor/Role/VulFracExercise.pm

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

package App::Math::Tutor::Role::VulFracExercise;

use warnings;
use strict;

=head1 NAME

App::Math::Tutor::Role::VulFracExercise - role for exercises in vulgar fraction

=cut

use Moo::Role;
use MooX::Options;

with "App::Math::Tutor::Role::Exercise", "App::Math::Tutor::Role::VulFrac";

our $VERSION = '0.004';

=head1 ATTRIBUTES

=head2 format

Specifies format of numerator/denominator

=cut

option format => (
    is       => "ro",
    doc      => "specifies format of numerator/denominator",
    long_doc => "Allow specifying the format of the numerator/denominator "
      . "whereby any digit is typed with 'n' as placeholder:\n\n"
      . "\t--format 5nnn/nn\n\n"
      . "creates vulgar fractions from 5999/99 .. 0002/02.\n\n"
      . "Default: 100/100",
    isa => sub {
        defined( $_[0] )
          and !ref $_[0]
          and $_[0] !~ m,^\d?n+(?:/\d?n+)?$,
          and die("Invalid format");
    },
    coerce => sub {
        defined( $_[0] )
          or return [ 100, 100 ];
        ref $_[0] eq "ARRAY" and return $_[0];

        my ( $fmta, $fmtb ) = ( $_[0] =~ m,^(\d?n+)(?:/(\d?n+))?$, );
        defined $fmtb or $fmtb = $fmta;
        my $starta = "1";
        my $startb = "1";
        $fmta =~ s/^(\d)(.*)/$2/ and $starta = $1;
        $fmtb =~ s/^(\d)(.*)/$2/ and $startb = $1;
        my $maxa = $starta . "0" x length($fmta);
        my $maxb = $startb . "0" x length($fmtb);
        [ $maxa, $maxb ];
    },
    default => sub { return [ 100, 100 ]; },
    format  => "s",
    short   => "f",
                 );

=head2 negativable

Controls whether fractions can become less 0

=cut

option negativable => (
                        is          => "ro",
                        doc         => "Controls whether fractions can become less 0",
                        default     => sub { 0 },
                        negativable => 1,
                      );

=head1 LICENSE AND COPYRIGHT

Copyright 2010-2014 Jens Rehsack.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

=cut

1;