make classes contexts again #47

cooper · Mar 7, 2017 · 4a6477a · 4a6477a
1 parent 09c7a8c
commit 4a6477a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/lib/Ferret/Class.pm b/lib/Ferret/Class.pm
@@ -5,7 +5,7 @@ use warnings;
 use strict;
 use utf8;
 use 5.010;
-use parent 'Ferret::Object';
+use parent 'Ferret::Context';
 
 use Scalar::Util qw(weaken blessed);
 use Ferret::Core::Conversion qw(

diff --git a/lib/Ferret/Core/FF.pm b/lib/Ferret/Core/FF.pm
@@ -375,9 +375,10 @@ sub get_class {
     my $created;
     if (!$context_maybe || !($class = $f->get_class($context_maybe, $name))) {
         $class = Ferret::Class->new($f,
-            name    => $name,
-            version => $version,
-            just_created => 1
+            name            => $name,
+            version         => $version,
+            parent          => $context_maybe,
+            just_created    => 1
         );
         ($context_maybe || $file_scope)->set_property($name => $class);
         $created++;