package Mock::CommandRegistry; use strict; use warnings; use fields qw/commands/; sub new { my ($class) = @_; bless {}, $class; } sub register { ... }