view release on metacpan or  search on metacpan

README  view on Meta::CPAN

            unique => 1,
        );

        has number =>  ( 
            is => 'rw',
            isa => 'Int'
        );


        package main;
        use Modern::Perl;


        my $objecta = MyApp->new_or_matching(identity => 'Mine');
        my $objectb = MyApp->new_or_matching(identity => 'Mine');

        $objecta->number(40);

        # prints:  Num: 40
        say "Num: ", $objectb->number;

lib/MooseX/Unique.pm  view on Meta::CPAN

        unique => 1,
    );

    has number =>  ( 
        is => 'rw',
        isa => 'Int'
    );


    package main;
    use Modern::Perl;


    my $objecta = MyApp->new_or_matching(identity => 'Mine');
    my $objectb = MyApp->new_or_matching(identity => 'Mine');

    $objecta->number(40);

    # prints:  Num: 40
    say "Num: ", $objectb->number;