# -*- Perl -*-

use strict;
use warnings;

package Matrix::Named;

use Scalar::Util qw/refaddr/;

use base 'Matrix';

{
    my %name;