Mom.pm usage, example 2

mom-eg2.pl

use strict;
use warnings;

package Widget {
	use Mom q{
		name           :ro  :type(Str) :required
		stock_level    :rwp :type(Int) :default(0)
		sku            :ro  :type(Str) :required
	};
	
	sub add_stock {
		my ( $self, $count ) = ( shift, @_ );
		$self->_set_stock_level( $self->stock_level + $count );
		return $self->stock_level;
	}
	
	sub remove_stock {
		my ( $self, $count ) = ( shift, @_ );
		croak "out of stock" if $count > $self->stock_level;
		$self->_set_stock_level( $self->stock_level - $count );
		return $self->stock_level;
	}
}

my $thingy = Widget->new(
	name   => 'Whatsit',
	sku    => 'X0000001',
);

$thingy->add_stock(50);