The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package YATG::SharedStorage;
{
  $YATG::SharedStorage::VERSION = '5.140510';
}

use strict;
use warnings FATAL => 'all';

use base 'Class::Data::Inheritable';

sub factory {
    my $class = shift;
    my @accessors = @_;
    return unless scalar @accessors;

    map {$class->mk_classdata($_)} @accessors;
}

1;