p6.p6

use JSON::Fast;
use Grammar::ErrorReporting;

grammar Time::Grammar does Grammar::ErrorReporting {
    token TOP { [<!before $> <time-op>]+ }

    token time-op { <minutes> | <hours> }
    regex minutes { <digit> <mins> }
    regex hours { <digit> <hrs> }
    token digit { <:N>+ || <.error('Incorrect digit')> }
    token mins { 'min' | 'mins' }
    token hrs { 'hr' | 'hrs' }
}

class Time::Actions {
    method TOP($/) { make $<time-op>>>.made.sum }
    method time-op($/) {
        make {
            $<minutes>.made,
            $<hours>.made,
        }
    }

    method minutes($/) { make $<digit>.made; }
    method hours($/) { make $<digit>.made * 60; }

    method digit($/) { make ~$/.Int; }
    method unit($/) { make $/.Str; }
}

say Time::Grammar.parse('1hrs 30 mins', actions => Time::Actions.new).made;
die;