use lib 'temp';
#use KindaPerl6::Perl5::MOP;
use MOP;
use Data::Dumper;

my $meth = ::CALL( $::Method, 'new', sub { 'hi' } );
print 'Method: ',Dumper($meth);
print 'Method.WHAT: ',Dumper( ::CALL( $meth, 'WHAT') );
print '$::Method.str: ',Dumper( ::CALL( $::Method, 'str') );
print 'Method.HOW: ',Dumper( ::CALL( $meth, 'HOW') );

print "---\n";
#print "Value: ",Dumper($::Value);
print 'Value: ',Dumper( ::CALL( $::Value, 'new', 'abc' ) );

my $str = ::CALL( $::Str, 'new', 'abc' );
print 'Str: ',Dumper( $str );
my $str2 = ::CALL( $str, 'FETCH' );
print $str2->{_value},"\n";

my $var = ::CALL( $::Scalar, 'new' );
my $value = ::CALL( $var, 'FETCH' );
print ::CALL( $value, 'perl' )->{_value},"\n";


=begin

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 homepage at L<http://dev.perl.org/perl6>.

The Pugs homepage at L<http://pugscode.org/>.

=head1 COPYRIGHT

Copyright 2007 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=end