Bug in Mx::ClassAttribute ?

#!/usr/bin/perl
use strict; use warnings;

package Parent;
use Moose;
use MooseX::ClassAttribute;

class_has attr => (
    isa => 'Str',
    is  => 'rw',
    );

package Child;
use Moose;
extends 'Parent';

package main;
use Test::More tests=>3;

Parent->attr('Red');
is   (Parent->attr, 'Red',  "parent attribute set" );

Child->attr("Blue");
is   (Child ->attr, 'Blue', "child attribute set" );

is   (Parent->attr, 'Red',  "parent attribute untouched" );