inheritance test in moose

inheritance.pl

#!/usr/bin/env perl
package Foo;
use Moose;
has package => (
	is => 'ro', 
	isa => 'Str', 
	default => __PACKAGE__
);

__PACKAGE__->meta->make_immutable;

package Bar;
use Moose;
extends 'Foo';

__PACKAGE__->meta->make_immutable;

package main;
use strict;
use warnings;
my $foo = Bar->new;
print $foo->package, "\n"; # why 'Foo'?