File Coverage

blib/lib/Pixie/LockStrat/ReadOnly.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	16	17	94.1

##
# NAME
#   Pixie::LockStrat::ReadOnly - read only locking strategy for Pixie
#
# SYNOPSIS
#   use Pixie::LockStrat::ReadOnly;
#   # see Pixie::LockStrat;
#
# DESCRIPTION
#   This class implements a locking strategy where:
#
#    *  store's are not allowed (will die).
#
##

package Pixie::LockStrat::ReadOnly;

use strict;

use Carp qw( confess croak );

use base qw( Pixie::LockStrat );

our $VERSION = '2.08_02';

sub pre_store {
  my $self = shift;
  my $oid = shift;
  # TODO: confess
  croak "$oid: Object is read only";
}

1;