Changeset 22501

Show
Ignore:
Timestamp:
10/04/08 03:05:21 (7 weeks ago)
Author:
putter
Message:

[elf_h] Fixed is() trait ordering. Tweaks.

Location:
misc/elf
Files:
5 modified

Legend:

Unmodified
Added
Removed

  • misc/elf/elf_h

    r22467 r22501  
    282282  sub file_exists{-e $_[0]} 
    283283  sub system{CORE::system(@_)} 
    284   sub eval_perl5{ 
     284  sub eval_runtime_code{ 
    285285    my($p5,$env)=@_; 
    286286    if($env) { $env->($p5) } 
    … …  
    408408 
    409409{ package Bit; 
    410 use base "Any";BEGIN{push(@Bit::ISA,'Any');} 
     410use base "Any";BEGIN{unshift(@Bit::ISA,'Any');} 
    411411(do{}) 
    412412} 
    … …  
    414414 
    415415{ package Int; 
    416 use base "Any";BEGIN{push(@Int::ISA,'Any');} 
     416use base "Any";BEGIN{unshift(@Int::ISA,'Any');} 
    417417(do{}) 
    418418} 
    … …  
    420420 
    421421{ package Str; 
    422 use base "Any";BEGIN{push(@Str::ISA,'Any');} 
     422use base "Any";BEGIN{unshift(@Str::ISA,'Any');} 
    423423(do{}) 
    424424} 
    … …  
    426426 
    427427{ package Num; 
    428 use base "Any";BEGIN{push(@Num::ISA,'Any');} 
     428use base "Any";BEGIN{unshift(@Num::ISA,'Any');} 
    429429(do{}) 
    430430} 
    … …  
    432432 
    433433{ package Complex; 
    434 use base "Any";BEGIN{push(@Complex::ISA,'Any');} 
     434use base "Any";BEGIN{unshift(@Complex::ISA,'Any');} 
    435435(do{}) 
    436436} 
    … …  
    438438 
    439439{ package Bool; 
    440 use base "Any";BEGIN{push(@Bool::ISA,'Any');} 
     440use base "Any";BEGIN{unshift(@Bool::ISA,'Any');} 
    441441(do{}) 
    442442} 
    … …  
    444444 
    445445{ package Code; 
    446 use base "Any";BEGIN{push(@Code::ISA,'Any');} 
     446use base "Any";BEGIN{unshift(@Code::ISA,'Any');} 
    447447(do{}) 
    448448} 
    … …  
    450450 
    451451{ package Block; 
    452 use base "Any";BEGIN{push(@Block::ISA,'Code');} 
     452use base "Any";BEGIN{unshift(@Block::ISA,'Code');} 
    453453(do{}) 
    454454} 
    … …  
    456456 
    457457{ package List; 
    458 use base "Any";BEGIN{push(@List::ISA,'Any');} 
     458use base "Any";BEGIN{unshift(@List::ISA,'Any');} 
    459459(do{}) 
    460460} 
    … …  
    462462 
    463463{ package Seq; 
    464 use base "Any";BEGIN{push(@Seq::ISA,'Any');} 
     464use base "Any";BEGIN{unshift(@Seq::ISA,'Any');} 
    465465(do{}) 
    466466} 
    … …  
    468468 
    469469{ package Range; 
    470 use base "Any";BEGIN{push(@Range::ISA,'Any');} 
     470use base "Any";BEGIN{unshift(@Range::ISA,'Any');} 
    471471(do{}) 
    472472} 
    … …  
    474474 
    475475{ package Set; 
    476 use base "Any";BEGIN{push(@Set::ISA,'Any');} 
     476use base "Any";BEGIN{unshift(@Set::ISA,'Any');} 
    477477(do{}) 
    478478} 
    … …  
    480480 
    481481{ package Bag; 
    482 use base "Any";BEGIN{push(@Bag::ISA,'Any');} 
     482use base "Any";BEGIN{unshift(@Bag::ISA,'Any');} 
    483483(do{}) 
    484484} 
    … …  
    486486 
    487487{ package Junction; 
    488 BEGIN{push(@Junction::ISA,'Object');} 
     488BEGIN{unshift(@Junction::ISA,'Object');} 
    489489(do{}) 
    490490} 
    … …  
    492492 
    493493{ package Pair; 
    494 use base "Any";BEGIN{push(@Pair::ISA,'Any');} 
     494use base "Any";BEGIN{unshift(@Pair::ISA,'Any');} 
    495495(do{}) 
    496496} 
    … …  
    498498 
    499499{ package Mapping; 
    500 use base "Any";BEGIN{push(@Mapping::ISA,'Any');} 
     500use base "Any";BEGIN{unshift(@Mapping::ISA,'Any');} 
    501501(do{}) 
    502502} 
    … …  
    504504 
    505505{ package Signature; 
    506 use base "Any";BEGIN{push(@Signature::ISA,'Any');} 
     506use base "Any";BEGIN{unshift(@Signature::ISA,'Any');} 
    507507(do{}) 
    508508} 
    … …  
    510510 
    511511{ package Capture; 
    512 use base "Any";BEGIN{push(@Capture::ISA,'Any');} 
     512use base "Any";BEGIN{unshift(@Capture::ISA,'Any');} 
    513513(do{}) 
    514514} 
    … …  
    516516 
    517517{ package Blob; 
    518 use base "Any";BEGIN{push(@Blob::ISA,'Any');} 
     518use base "Any";BEGIN{unshift(@Blob::ISA,'Any');} 
    519519(do{}) 
    520520} 
    … …  
    522522 
    523523{ package Scalar; 
    524 use base "Any";BEGIN{push(@Scalar::ISA,'Any');} 
     524use base "Any";BEGIN{unshift(@Scalar::ISA,'Any');} 
    525525(do{}) 
    526526} 
    … …  
    528528 
    529529{ package Array; 
    530 use base "Any";BEGIN{push(@Array::ISA,'List');} 
     530use base "Any";BEGIN{unshift(@Array::ISA,'List');} 
    531531(do{}) 
    532532} 
    … …  
    534534 
    535535{ package Hash; 
    536 use base "Any";BEGIN{push(@Hash::ISA,'Any');} 
     536use base "Any";BEGIN{unshift(@Hash::ISA,'Any');} 
    537537(do{}) 
    538538} 
    … …  
    540540 
    541541{ package KeyHash; 
    542 use base "Any";BEGIN{push(@KeyHash::ISA,'Any');} 
     542use base "Any";BEGIN{unshift(@KeyHash::ISA,'Any');} 
    543543(do{}) 
    544544} 
    … …  
    546546 
    547547{ package KeySet; 
    548 use base "Any";BEGIN{push(@KeySet::ISA,'Any');} 
     548use base "Any";BEGIN{unshift(@KeySet::ISA,'Any');} 
    549549(do{}) 
    550550} 
    … …  
    552552 
    553553{ package KeyBag; 
    554 use base "Any";BEGIN{push(@KeyBag::ISA,'Any');} 
     554use base "Any";BEGIN{unshift(@KeyBag::ISA,'Any');} 
    555555(do{}) 
    556556} 
    … …  
    558558 
    559559{ package Buf; 
    560 use base "Any";BEGIN{push(@Buf::ISA,'Any');} 
     560use base "Any";BEGIN{unshift(@Buf::ISA,'Any');} 
    561561(do{}) 
    562562} 
    … …  
    564564 
    565565{ package IO; 
    566 use base "Any";BEGIN{push(@IO::ISA,'Any');} 
     566use base "Any";BEGIN{unshift(@IO::ISA,'Any');} 
    567567(do{}) 
    568568} 
    … …  
    570570 
    571571{ package Routine; 
    572 use base "Any";BEGIN{push(@Routine::ISA,'Code');} 
     572use base "Any";BEGIN{unshift(@Routine::ISA,'Code');} 
    573573(do{}) 
    574574} 
    … …  
    576576 
    577577{ package Sub; 
    578 use base "Any";BEGIN{push(@Sub::ISA,'Routine');} 
     578use base "Any";BEGIN{unshift(@Sub::ISA,'Routine');} 
    579579(do{}) 
    580580} 
    … …  
    582582 
    583583{ package Method; 
    584 use base "Any";BEGIN{push(@Method::ISA,'Routine');} 
     584use base "Any";BEGIN{unshift(@Method::ISA,'Routine');} 
    585585(do{}) 
    586586} 
    … …  
    588588 
    589589{ package Subethod; 
    590 use base "Any";BEGIN{push(@Subethod::ISA,'Routine');} 
     590use base "Any";BEGIN{unshift(@Subethod::ISA,'Routine');} 
    591591(do{}) 
    592592} 
    … …  
    594594 
    595595{ package Macro; 
    596 use base "Any";BEGIN{push(@Macro::ISA,'Routine');} 
     596use base "Any";BEGIN{unshift(@Macro::ISA,'Routine');} 
    597597(do{}) 
    598598} 
    … …  
    600600 
    601601{ package Regex; 
    602 use base "Any";BEGIN{push(@Regex::ISA,'Routine');} 
     602use base "Any";BEGIN{unshift(@Regex::ISA,'Routine');} 
    603603(do{}) 
    604604} 
    … …  
    606606 
    607607{ package Match; 
    608 use base "Any";BEGIN{push(@Match::ISA,'Any');} 
     608use base "Any";BEGIN{unshift(@Match::ISA,'Any');} 
    609609(do{}) 
    610610} 
    … …  
    612612 
    613613{ package Package; 
    614 use base "Any";BEGIN{push(@Package::ISA,'Any');} 
     614use base "Any";BEGIN{unshift(@Package::ISA,'Any');} 
    615615(do{}) 
    616616} 
    … …  
    618618 
    619619{ package Module; 
    620 use base "Any";BEGIN{push(@Module::ISA,'Package');} 
     620use base "Any";BEGIN{unshift(@Module::ISA,'Package');} 
    621621(do{}) 
    622622} 
    … …  
    624624 
    625625{ package Class; 
    626 use base "Any";BEGIN{push(@Class::ISA,'Module');} 
     626use base "Any";BEGIN{unshift(@Class::ISA,'Module');} 
    627627(do{}) 
    628628} 
    … …  
    630630 
    631631{ package Role; 
    632 use base "Any";BEGIN{push(@Role::ISA,'Module');} 
     632use base "Any";BEGIN{unshift(@Role::ISA,'Module');} 
    633633(do{}) 
    634634} 
    … …  
    636636 
    637637{ package Grammar; 
    638 use base "Any";BEGIN{push(@Grammar::ISA,'Module');} 
     638use base "Any";BEGIN{unshift(@Grammar::ISA,'Module');} 
    639639(do{}) 
    640640} 
    … …  
    642642 
    643643{ package Any; 
    644 BEGIN{push(@Any::ISA,'Object');} 
     644BEGIN{unshift(@Any::ISA,'Object');} 
    645645(do{}) 
    646646} 
    … …  
    877877; 
    878878 
    879 { package IRx1::CompUnit_and_Block; 
    880 use base "Any";(do{}) 
    881 } 
    882 ; 
    883  
    884879{ package IRx1::CompUnit; 
    885 use base "Any";BEGIN{push(@IRx1::CompUnit::ISA,'IRx1::CompUnit_and_Block');} 
    886 (do{}) 
    887 } 
    888 ; 
    889  
    890 { package IRx1::Block; 
    891 use base "Any";BEGIN{push(@IRx1::Block::ISA,'IRx1::CompUnit_and_Block');} 
    892 (do{}) 
    893 } 
    894 ; 
    895  
    896 { package IRx1::CompUnit; 
    897 use base "Any";BEGIN{push(@IRx1::CompUnit::ISA,'IRx1::Base');} 
     880use base "Any";BEGIN{unshift(@IRx1::CompUnit::ISA,'IRx1::Base');} 
    898881(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    899882sub statements { if(@_==2){$_[0]{'statements'}=$_[1]}else{$_[0]{'statements'}}}; 
    … …  
    912895 
    913896{ package IRx1::Block; 
    914 use base "Any";BEGIN{push(@IRx1::Block::ISA,'IRx1::Base');} 
     897use base "Any";BEGIN{unshift(@IRx1::Block::ISA,'IRx1::Base');} 
    915898(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    916899sub statements { if(@_==2){$_[0]{'statements'}=$_[1]}else{$_[0]{'statements'}}}; 
    … …  
    928911 
    929912{ package IRx1::Use; 
    930 use base "Any";BEGIN{push(@IRx1::Use::ISA,'IRx1::Base');} 
     913use base "Any";BEGIN{unshift(@IRx1::Use::ISA,'IRx1::Base');} 
    931914(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    932915sub kind { if(@_==2){$_[0]{'kind'}=$_[1]}else{$_[0]{'kind'}}}; 
    … …  
    946929 
    947930{ package IRx1::PackageDecl; 
    948 use base "Any";BEGIN{push(@IRx1::PackageDecl::ISA,'IRx1::Base');} 
     931use base "Any";BEGIN{unshift(@IRx1::PackageDecl::ISA,'IRx1::Base');} 
    949932(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    950933sub scope { if(@_==2){$_[0]{'scope'}=$_[1]}else{$_[0]{'scope'}}}; 
    … …  
    967950 
    968951{ package IRx1::MethodDecl; 
    969 use base "Any";BEGIN{push(@IRx1::MethodDecl::ISA,'IRx1::Base');} 
     952use base "Any";BEGIN{unshift(@IRx1::MethodDecl::ISA,'IRx1::Base');} 
    970953(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    971954sub scope { if(@_==2){$_[0]{'scope'}=$_[1]}else{$_[0]{'scope'}}}; 
    … …  
    991974 
    992975{ package IRx1::SubDecl; 
    993 use base "Any";BEGIN{push(@IRx1::SubDecl::ISA,'IRx1::Base');} 
     976use base "Any";BEGIN{unshift(@IRx1::SubDecl::ISA,'IRx1::Base');} 
    994977(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    995978sub scope { if(@_==2){$_[0]{'scope'}=$_[1]}else{$_[0]{'scope'}}}; 
    … …  
    1013996 
    1014997{ package IRx1::MacroDecl; 
    1015 use base "Any";BEGIN{push(@IRx1::MacroDecl::ISA,'IRx1::Base');} 
     998use base "Any";BEGIN{unshift(@IRx1::MacroDecl::ISA,'IRx1::Base');} 
    1016999(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    10171000sub scope { if(@_==2){$_[0]{'scope'}=$_[1]}else{$_[0]{'scope'}}}; 
    … …  
    10351018 
    10361019{ package IRx1::VarDecl; 
    1037 use base "Any";BEGIN{push(@IRx1::VarDecl::ISA,'IRx1::Base');} 
     1020use base "Any";BEGIN{unshift(@IRx1::VarDecl::ISA,'IRx1::Base');} 
    10381021(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    10391022sub scope { if(@_==2){$_[0]{'scope'}=$_[1]}else{$_[0]{'scope'}}}; 
    … …  
    10581041 
    10591042{ package IRx1::Var; 
    1060 use base "Any";BEGIN{push(@IRx1::Var::ISA,'IRx1::Base');} 
     1043use base "Any";BEGIN{unshift(@IRx1::Var::ISA,'IRx1::Base');} 
    10611044(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    10621045sub sigil { if(@_==2){$_[0]{'sigil'}=$_[1]}else{$_[0]{'sigil'}}}; 
    … …  
    10761059 
    10771060{ package IRx1::Trait; 
    1078 use base "Any";BEGIN{push(@IRx1::Trait::ISA,'IRx1::Base');} 
     1061use base "Any";BEGIN{unshift(@IRx1::Trait::ISA,'IRx1::Base');} 
    10791062(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    10801063sub verb { if(@_==2){$_[0]{'verb'}=$_[1]}else{$_[0]{'verb'}}}; 
    … …  
    10931076 
    10941077{ package IRx1::ClosureTrait; 
    1095 use base "Any";BEGIN{push(@IRx1::ClosureTrait::ISA,'IRx1::Base');} 
     1078use base "Any";BEGIN{unshift(@IRx1::ClosureTrait::ISA,'IRx1::Base');} 
    10961079(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    10971080sub kind { if(@_==2){$_[0]{'kind'}=$_[1]}else{$_[0]{'kind'}}}; 
    … …  
    11101093 
    11111094{ package IRx1::ModuleName; 
    1112 use base "Any";BEGIN{push(@IRx1::ModuleName::ISA,'IRx1::Base');} 
     1095use base "Any";BEGIN{unshift(@IRx1::ModuleName::ISA,'IRx1::Base');} 
    11131096(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    11141097sub name { if(@_==2){$_[0]{'name'}=$_[1]}else{$_[0]{'name'}}}; 
    … …  
    11271110 
    11281111{ package IRx1::PathName; 
    1129 use base "Any";BEGIN{push(@IRx1::PathName::ISA,'IRx1::Base');} 
     1112use base "Any";BEGIN{unshift(@IRx1::PathName::ISA,'IRx1::Base');} 
    11301113(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    11311114sub path { if(@_==2){$_[0]{'path'}=$_[1]}else{$_[0]{'path'}}}; 
    … …  
    11431126 
    11441127{ package IRx1::SubName; 
    1145 use base "Any";BEGIN{push(@IRx1::SubName::ISA,'IRx1::Base');} 
     1128use base "Any";BEGIN{unshift(@IRx1::SubName::ISA,'IRx1::Base');} 
    11461129(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    11471130sub category { if(@_==2){$_[0]{'category'}=$_[1]}else{$_[0]{'category'}}}; 
    … …  
    11621145 
    11631146{ package IRx1::ShapedParamName; 
    1164 use base "Any";BEGIN{push(@IRx1::ShapedParamName::ISA,'IRx1::Base');} 
     1147use base "Any";BEGIN{unshift(@IRx1::ShapedParamName::ISA,'IRx1::Base');} 
    11651148(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    11661149sub ident { if(@_==2){$_[0]{'ident'}=$_[1]}else{$_[0]{'ident'}}}; 
    … …  
    11791162 
    11801163{ package IRx1::Call; 
    1181 use base "Any";BEGIN{push(@IRx1::Call::ISA,'IRx1::Base');} 
     1164use base "Any";BEGIN{unshift(@IRx1::Call::ISA,'IRx1::Base');} 
    11821165(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    11831166sub invocant { if(@_==2){$_[0]{'invocant'}=$_[1]}else{$_[0]{'invocant'}}}; 
    … …  
    11971180 
    11981181{ package IRx1::Apply; 
    1199 use base "Any";BEGIN{push(@IRx1::Apply::ISA,'IRx1::Base');} 
     1182use base "Any";BEGIN{unshift(@IRx1::Apply::ISA,'IRx1::Base');} 
    12001183(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    12011184sub function { if(@_==2){$_[0]{'function'}=$_[1]}else{$_[0]{'function'}}}; 
    … …  
    12141197 
    12151198{ package IRx1::Hyper; 
    1216 use base "Any";BEGIN{push(@IRx1::Hyper::ISA,'IRx1::Base');} 
     1199use base "Any";BEGIN{unshift(@IRx1::Hyper::ISA,'IRx1::Base');} 
    12171200(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    12181201sub operator { if(@_==2){$_[0]{'operator'}=$_[1]}else{$_[0]{'operator'}}}; 
    … …  
    12311214 
    12321215{ package IRx1::Capture; 
    1233 use base "Any";BEGIN{push(@IRx1::Capture::ISA,'IRx1::Base');} 
     1216use base "Any";BEGIN{unshift(@IRx1::Capture::ISA,'IRx1::Base');} 
    12341217(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    12351218sub arguments { if(@_==2){$_[0]{'arguments'}=$_[1]}else{$_[0]{'arguments'}}}; 
    … …  
    12481231 
    12491232{ package IRx1::MultiSig; 
    1250 use base "Any";BEGIN{push(@IRx1::MultiSig::ISA,'IRx1::Base');} 
     1233use base "Any";BEGIN{unshift(@IRx1::MultiSig::ISA,'IRx1::Base');} 
    12511234(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    12521235sub signatures { if(@_==2){$_[0]{'signatures'}=$_[1]}else{$_[0]{'signatures'}}}; 
    … …  
    12641247 
    12651248{ package IRx1::Signature; 
    1266 use base "Any";BEGIN{push(@IRx1::Signature::ISA,'IRx1::Base');} 
     1249use base "Any";BEGIN{unshift(@IRx1::Signature::ISA,'IRx1::Base');} 
    12671250(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    12681251sub parameters { if(@_==2){$_[0]{'parameters'}=$_[1]}else{$_[0]{'parameters'}}}; 
    … …  
    12811264 
    12821265{ package IRx1::Parameter; 
    1283 use base "Any";BEGIN{push(@IRx1::Parameter::ISA,'IRx1::Base');} 
     1266use base "Any";BEGIN{unshift(@IRx1::Parameter::ISA,'IRx1::Base');} 
    12841267(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    12851268sub type_constraints { if(@_==2){$_[0]{'type_constraints'}=$_[1]}else{$_[0]{'type_constraints'}}}; 
    … …  
    13031286 
    13041287{ package IRx1::TypeConstraint; 
    1305 use base "Any";BEGIN{push(@IRx1::TypeConstraint::ISA,'IRx1::Base');} 
     1288use base "Any";BEGIN{unshift(@IRx1::TypeConstraint::ISA,'IRx1::Base');} 
    13061289(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    13071290sub value { if(@_==2){$_[0]{'value'}=$_[1]}else{$_[0]{'value'}}}; 
    … …  
    13201303 
    13211304{ package IRx1::PostConstraint; 
    1322 use base "Any";BEGIN{push(@IRx1::PostConstraint::ISA,'IRx1::Base');} 
     1305use base "Any";BEGIN{unshift(@IRx1::PostConstraint::ISA,'IRx1::Base');} 
    13231306(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    13241307sub multisig { if(@_==2){$_[0]{'multisig'}=$_[1]}else{$_[0]{'multisig'}}}; 
    … …  
    13371320 
    13381321{ package IRx1::ParamVar; 
    1339 use base "Any";BEGIN{push(@IRx1::ParamVar::ISA,'IRx1::Base');} 
     1322use base "Any";BEGIN{unshift(@IRx1::ParamVar::ISA,'IRx1::Base');} 
    13401323(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    13411324sub sigil { if(@_==2){$_[0]{'sigil'}=$_[1]}else{$_[0]{'sigil'}}}; 
    … …  
    13551338 
    13561339{ package IRx1::Undef; 
    1357 use base "Any";BEGIN{push(@IRx1::Undef::ISA,'IRx1::Base');} 
     1340use base "Any";BEGIN{unshift(@IRx1::Undef::ISA,'IRx1::Base');} 
    13581341(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    13591342sub notes { if(@_==2){$_[0]{'notes'}=$_[1]}else{$_[0]{'notes'}}}; 
    … …  
    13701353 
    13711354{ package IRx1::NumInt; 
    1372 use base "Any";BEGIN{push(@IRx1::NumInt::ISA,'IRx1::Base');} 
     1355use base "Any";BEGIN{unshift(@IRx1::NumInt::ISA,'IRx1::Base');} 
    13731356(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    13741357sub text { if(@_==2){$_[0]{'text'}=$_[1]}else{$_[0]{'text'}}}; 
    … …  
    13871370 
    13881371{ package IRx1::NumDec; 
    1389 use base "Any";BEGIN{push(@IRx1::NumDec::ISA,'IRx1::Base');} 
     1372use base "Any";BEGIN{unshift(@IRx1::NumDec::ISA,'IRx1::Base');} 
    13901373(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    13911374sub intpart { if(@_==2){$_[0]{'intpart'}=$_[1]}else{$_[0]{'intpart'}}}; 
    … …  
    14051388 
    14061389{ package IRx1::NumRad; 
    1407 use base "Any";BEGIN{push(@IRx1::NumRad::ISA,'IRx1::Base');} 
     1390use base "Any";BEGIN{unshift(@IRx1::NumRad::ISA,'IRx1::Base');} 
    14081391(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    14091392sub radix { if(@_==2){$_[0]{'radix'}=$_[1]}else{$_[0]{'radix'}}}; 
    … …  
    14251408 
    14261409{ package IRx1::Array; 
    1427 use base "Any";BEGIN{push(@IRx1::Array::ISA,'IRx1::Base');} 
     1410use base "Any";BEGIN{unshift(@IRx1::Array::ISA,'IRx1::Base');} 
    14281411(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    14291412sub array { if(@_==2){$_[0]{'array'}=$_[1]}else{$_[0]{'array'}}}; 
    … …  
    14411424 
    14421425{ package IRx1::Hash; 
    1443 use base "Any";BEGIN{push(@IRx1::Hash::ISA,'IRx1::Base');} 
     1426use base "Any";BEGIN{unshift(@IRx1::Hash::ISA,'IRx1::Base');} 
    14441427(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    14451428sub hash { if(@_==2){$_[0]{'hash'}=$_[1]}else{$_[0]{'hash'}}}; 
    … …  
    14571440 
    14581441{ package IRx1::Pair; 
    1459 use base "Any";BEGIN{push(@IRx1::Pair::ISA,'IRx1::Base');} 
     1442use base "Any";BEGIN{unshift(@IRx1::Pair::ISA,'IRx1::Base');} 
    14601443(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    14611444sub key { if(@_==2){$_[0]{'key'}=$_[1]}else{$_[0]{'key'}}}; 
    … …  
    14741457 
    14751458{ package IRx1::Type; 
    1476 use base "Any";BEGIN{push(@IRx1::Type::ISA,'IRx1::Base');} 
     1459use base "Any";BEGIN{unshift(@IRx1::Type::ISA,'IRx1::Base');} 
    14771460(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    14781461sub typename { if(@_==2){$_[0]{'typename'}=$_[1]}else{$_[0]{'typename'}}}; 
    … …  
    14901473 
    14911474{ package IRx1::Rx; 
    1492 use base "Any";BEGIN{push(@IRx1::Rx::ISA,'IRx1::Base');} 
     1475use base "Any";BEGIN{unshift(@IRx1::Rx::ISA,'IRx1::Base');} 
    14931476(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    14941477sub pat { if(@_==2){$_[0]{'pat'}=$_[1]}else{$_[0]{'pat'}}}; 
    … …  
    15071490 
    15081491{ package IRx1::Buf; 
    1509 use base "Any";BEGIN{push(@IRx1::Buf::ISA,'IRx1::Base');} 
     1492use base "Any";BEGIN{unshift(@IRx1::Buf::ISA,'IRx1::Base');} 
    15101493(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    15111494sub buf { if(@_==2){$_[0]{'buf'}=$_[1]}else{$_[0]{'buf'}}}; 
    … …  
    15231506 
    15241507{ package IRx1::For; 
    1525 use base "Any";BEGIN{push(@IRx1::For::ISA,'IRx1::Base');} 
     1508use base "Any";BEGIN{unshift(@IRx1::For::ISA,'IRx1::Base');} 
    15261509(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    15271510sub expr { if(@_==2){$_[0]{'expr'}=$_[1]}else{$_[0]{'expr'}}}; 
    … …  
    15401523 
    15411524{ package IRx1::Cond; 
    1542 use base "Any";BEGIN{push(@IRx1::Cond::ISA,'IRx1::Base');} 
     1525use base "Any";BEGIN{unshift(@IRx1::Cond::ISA,'IRx1::Base');} 
    15431526(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    15441527sub clauses { if(@_==2){$_[0]{'clauses'}=$_[1]}else{$_[0]{'clauses'}}}; 
    … …  
    15581541 
    15591542{ package IRx1::Loop; 
    1560 use base "Any";BEGIN{push(@IRx1::Loop::ISA,'IRx1::Base');} 
     1543use base "Any";BEGIN{unshift(@IRx1::Loop::ISA,'IRx1::Base');} 
    15611544(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    15621545sub pretest { if(@_==2){$_[0]{'pretest'}=$_[1]}else{$_[0]{'pretest'}}}; 
    … …  
    15771560 
    15781561{ package IRx1::Given; 
    1579 use base "Any";BEGIN{push(@IRx1::Given::ISA,'IRx1::Base');} 
     1562use base "Any";BEGIN{unshift(@IRx1::Given::ISA,'IRx1::Base');} 
    15801563(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    15811564sub expr { if(@_==2){$_[0]{'expr'}=$_[1]}else{$_[0]{'expr'}}}; 
    … …  
    15941577 
    15951578{ package IRx1::When; 
    1596 use base "Any";BEGIN{push(@IRx1::When::ISA,'IRx1::Base');} 
     1579use base "Any";BEGIN{unshift(@IRx1::When::ISA,'IRx1::Base');} 
    15971580(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    15981581sub expr { if(@_==2){$_[0]{'expr'}=$_[1]}else{$_[0]{'expr'}}}; 
    … …  
    16111594 
    16121595{ package IRx1::Label; 
    1613 use base "Any";BEGIN{push(@IRx1::Label::ISA,'IRx1::Base');} 
     1596use base "Any";BEGIN{unshift(@IRx1::Label::ISA,'IRx1::Base');} 
    16141597(do{sub match { if(@_==2){$_[0]{'match'}=$_[1]}else{$_[0]{'match'}}}; 
    16151598sub labels { if(@_==2){$_[0]{'labels'}=$_[1]}else{$_[0]{'labels'}}}; 
    … …