Catching up after the holidays.
[kakapo:kakapo.git] / src / Pmc / Namespace.nqp
1 # Copyright (C) 2009, Austin Hastings. See accompanying LICENSE file, or 
2 # http://www.opensource.org/licenses/artistic-license-2.0.php for license.
3
4 module NameSpace;
5 # Provides missing methods to NameSpace PMC.
6
7 method can($method)             { Opcode::can(self, $method); }
8 method defined()                        { 1 }
9 method does($role)                      { 0 }
10 method isa($type)                       { Opcode::isa(self, $type); }
11 method new()                    { Opcode::new('NameSpace'); }
12
13 sub _pre_initload() {
14         P6metaclass::register_pmc_type('NameSpace');
15 }