Change sub to callable.

raku-community-modules · Jan 4, 2017 · 416b4db · 416b4db
1 parent 6b4bb97
commit 416b4db
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 5 deletions.
diff --git a/lib/DBDish.pm6 b/lib/DBDish.pm6
@@ -20,10 +20,10 @@ role Driver does DBDish::ErrorHandling {
 }
 
 role Type {
-    has Sub %!Conversions{Str};
+    has Callable %!Conversions{Str};
 
-    method set(Str $name, Sub $convert) {
-        %!Conversions{$name} = $convert;
+    method set(Str $name, &convert) {
+        %!Conversions{$name} = &convert;
     }
     method get(Str $name) {
         %!Conversions{$name} || sub (Str :$str, Str :$type-name) { $type-name($str) };

diff --git a/t/06-types.t b/t/06-types.t
@@ -4,9 +4,13 @@ use DBDish;
 plan 9;
 
 class type-test does DBDish::Type {
+	method test-str(Str $value) {
+		$value.flip;
+	}
+
 	submethod BUILD {
 		%!Conversions{'Int'} = sub (Str $value) { Int($value) };
-		self.set('Str', sub (Str $value) { $value });
+		self.set('Str', self.^find_method('test-str'));
 	}
 }
 
@@ -19,4 +23,5 @@ ok $sub = $test.get('Int');
 is $sub.WHAT, Sub;
 is $sub('123'), 1;
 ok $sub = $test.get('Str');
-is $sub('test'), 'test';
+$sub.gist.say;
+is $test.$sub('test'), 'tset';