gistfile1.pl

#!/usr/bin/perl
# Sample for using MT registry
use strict;
use warnings;
use lib qw( lib extlib );
use MT;
use MT::Component;
use Data::Dumper;
my $c1 = MT::Component->new;
$c1->registry({
    foo => { bar => 1 },
});
my $c2 = MT::Component->new;
$c2->registry({
    foo => { buz => 1 },
});
push @MT::Components, ( $c1, $c2 );
print Dumper( MT->registry('foo') );
# prints this.
#$VAR1 = {
#          'bar' => 1,
#          'buz' => 1
#        };