Skip to content
Browse files

Refactor core class stubs a bit.

  • Loading branch information...
1 parent 48a44ea commit c69d4ba028c7736e62ca6a3f94d15205c374f8c1 @pmichaud pmichaud committed Aug 18, 2011
View
5 src/core/Any.pm
@@ -1,5 +1,6 @@
-class MapIter { ... }
-class Parcel { ... }
+my class MapIter { ... }
+my class Whatever { ... }
+my class Range { ... }
my class Any {
View
6 src/core/BackTrace.pm
@@ -1,4 +1,6 @@
-class BackTraceLine {
+my class Exception { ... }
+
+my class BackTraceLine {
has Str $.file;
has Int $.line;
has Mu $.code;
@@ -14,7 +16,7 @@ class BackTraceLine {
method is-setting { $!file eq 'src/gen/CORE.setting' }
}
-class BackTrace is List {
+my class BackTrace is List {
proto method new(|$) {*}
multi method new(Exception $e, Int $offset = 0) {
View
2 src/core/Cool.pm
@@ -1,3 +1,5 @@
+my class IO { ... }
+
my class Cool {
## numeric methods
View
2 src/core/Int.pm
@@ -1,4 +1,4 @@
-class Rat { ... }
+my class Rat { ... }
my class Int {
multi method Bool(Int:D:) {
View
2 src/core/List.pm
@@ -1,5 +1,3 @@
-class Range { ... }
-
my class List does Positional {
# declared in BOOTSTRAP.pm:
# is Iterable; # parent class
View
2 src/core/ListIter.pm
@@ -1,4 +1,4 @@
-class List { ... }
+my class List { ... }
my class ListIter {
# Attributes defined in BOOTSTRAP.pm:
View
2 src/core/Numeric.pm
@@ -1,5 +1,3 @@
-class Complex { ... }
-
# XXX role Numeric { ... }
my class Numeric {
multi method Numeric(Numeric:D:) { self }
View
2 src/core/Real.pm
@@ -1,4 +1,4 @@
-class Complex { ... }
+my class Complex { ... }
# XxX role Real does Numeric { ... }
my class Real {
View
2 src/core/WhateverCode.pm
@@ -1,2 +1,2 @@
-my class WhateverCode {
+my class WhateverCode is Code {
}
View
2 src/core/control.pm
@@ -1,4 +1,4 @@
-class Nil { ... }
+my class Nil { ... }
my &THROW :=
-> |$ {
View
8 src/core/stubs.pm
@@ -3,18 +3,12 @@
# Code/Block/Routine/Sub/Method and Str/Int/Num. They are built in BOOTSTRAP.pm
# in Perl6::Metamodel for now, though should be a BEGIN block in CORE.setting
# in the end.
-my class Whatever is Cool { ... }
-my class WhateverCode is Code { ... }
-my role Stringy { ... }
-my class IO { ... }
-my class Enum { ... }
+my class Whatever { ... }
my class Bag is Iterable does Associative { }
my class Buf is Iterable does Positional { }
my class Set is Iterable does Associative { }
my class KeyHash is Iterable does Associative { }
my class Seq is List does Positional { }
-my class Range { ... }
-my class Exception { ... }
sub DYNAMIC(\$name) is rw {
my Mu $x := pir::find_dynamic_lex__Ps(nqp::unbox_s($name));

0 comments on commit c69d4ba

Please sign in to comment.
Something went wrong with that request. Please try again.