Toss some dead code.

Raku · Jan 14, 2013 · fb2b87e · fb2b87e
1 parent 9815308
commit fb2b87e
Showing 1 changed file with 0 additions and 36 deletions.
diff --git a/src/how/NQPAttribute.pm b/src/how/NQPAttribute.pm
@@ -48,42 +48,6 @@ knowhow NQPAttribute {
     }
 
     method compose($obj) {
-        #my $long_name := ~$!name;
-        #if self.has_mutator {
-        #    my $method := nqp::substr($long_name, 1);
-        #    unless has_method($obj, $method, 0) {
-        #        $obj.HOW.add_method($obj.WHAT, $method, method ($value?) {
-        #                nqp::bindattr(self, $obj.WHAT, $long_name, $value)
-        #                    if nqp::defined($value);
-        #                nqp::getattr(self, $obj.WHAT, $long_name);
-        #            }
-        #        );
-        #    }
-        #}
-        #else {
-        #    my $method := nqp::substr($long_name, 2);
-        #    unless has_method($obj, $method, 0) {
-        #        $obj.HOW.add_method($obj, $method,
-        #            method () {
-        #                nqp::getattr(self, $obj.WHAT, $long_name);
-        #            }
-        #        );
-        #    }
-        #}
         $obj
     }
-
-    # Hack to check twigil.
-    method has_mutator() {
-        nqp::substr(~$!name, 1, 1) ne '!';
-    }
-
-    sub has_method($target, $name, $local) {
-        my @methods := $target.HOW.methods($target, :local($local));
-        for @methods {
-            if $_ eq $name { return 1; }
-        }
-        return 0;
-    }
-
 }