File Coverage

blib/lib/DWH_File/Slot.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	4	100.0
condition	5	6	83.3
subroutine	7	7	100.0
pod	0	3	0.0
total	38	42	90.4

package DWH_File::Slot;

use warnings;
use strict;
use vars qw( @ISA $VERSION );

use UNIVERSAL;

@ISA = qw( );
$VERSION = 0.01;

sub set_value {
    my ( $self, $value ) = @_;
    $self->release;
    $self->{ value } = $value;
    $self->retain;
}

sub release {
    my ( $self ) = @_;
    if ( $self->{ value } and UNIVERSAL::isa( $self->{ value },
					      'DWH_File::Reference' ) ) {
	$self->{ value }->cut_refcount;
    }
}

sub retain {
    my ( $self ) = @_;
    if ( $self->{ value } and UNIVERSAL::isa( $self->{ value },
					      'DWH_File::Reference' ) ) {
	$self->{ value }->bump_refcount;
    }
}

1;

__END__