Select Code to Download

sub satisfied {
    my ($self, @body) = @_;
...
            $self->{established}->{intro_rec},
          Data::Dumper::Dumper($self->{established});
        }

TESTING intro_rec comp_org adv_prog theory in satisfied() with self-e:
+ $VAR1 = \
{
...
        };

package X;

...

$self->printlist(@M);