p6.p6

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

    token time-op { <digit> <.ws>? <unit> <.ws>? }
    token digit { <:N>+ || <.error('Incorrect digit')> }

    proto token unit {*}
    token unit:sym<mins> { 'min' | 'mins' }
    token unit:sym<hrs>  { 'hr' | 'hrs' }
}

class Time::Actions {
    method TOP            ($/) { make $<time-op>».made.sum    }
    method time-op        ($/) { make $<digit> * $<unit>.made }
    method unit:sym<mins> ($/) { make 1  }
    method unit:sym<hrs>  ($/) { make 60 }
}

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