PRE phaser implementation

gistfile1.txt

# The PRE phaser.
class RakuAST::StatementPrefix::Phaser::Pre
  is RakuAST::StatementPrefix::Thunky
  is RakuAST::Attaching
{

    method new(RakuAST::Blorst $condition) {
        my $obj := nqp::create(self);
        
        nqp::bindattr($obj, RakuAST::StatementPrefix, '$!blorst',
          RakuAST::Statement::Expression.new(
            expression => RakuAST::ApplyPostfix.new(
              operand => RakuAST::ApplyPostfix.new(
                operand => RakuAST::Type::Simple.new(
                  RakuAST::Name.from-identifier-parts(
                    'X','Phaser','PrePost'
                  )
                ),
                postfix => RakuAST::Call::Method.new(
                  name => RakuAST::Name.from-identifier('new'),
                  args => RakuAST::ArgList.new(
                    ColonPair::Value.new(
                      key => 'phaser',
                      value => 'PRE'
                    ),
                    ColonPair::Value.new(
                      key   => 'condition',
                      value => $condition.DEPARSE
                    )
                  )
                  )
                ),
              postfix => RakuAST::Call::Method.new(
                name => RakuAST::Name.from-identifier('throw')
              )
            )
          ),
          condition-modifier => $condition
        );

        $obj
    }

    method attach(RakuAST::Resolver $resolver) {
        $resolver.find-attach-target('block').add-pre-phaser(self);
    }
}