gistfile1.txt

Source:

BEGIN { say 'Before "use OpenGL:from<Parrot>;"' }
use OpenGL:from<Parrot>;
BEGIN { say 'After  "use OpenGL:from<Parrot>;"' }
say 'Running regular code'

Instrumented result:

Perl6::Compiler.import('Any', ...);
Perl6::Compiler.import('Array', ...);
Perl6::Compiler.import('Bool', ...);
Perl6::Compiler.import('Hash', ...);
Perl6::Compiler.import('IO', ...);
Perl6::Compiler.import('IO::Socket', ...);
Perl6::Compiler.import('IO::Socket::INET', ...);
Perl6::Compiler.import('List', ...);
Perl6::Compiler.import('Match', ...);
Perl6::Compiler.import('Num', ...);
Perl6::Compiler.import('Object', ...);
Perl6::Compiler.import('Pair', ...);
Perl6::Compiler.import('Range', ...);
Perl6::Compiler.import('Temporal', ...);
Perl6::Compiler.import('Whatever', ...);
Before "use OpenGL:from<Parrot>;"
use('OpenGL', :import_to(''), :ver(:from('Parrot'), ), );
After  "use OpenGL:from<Parrot>;"
use('OpenGL', :ver(:from('Parrot'), ), );
Running regular code