File Coverage

blib/lib/Tk/GraphItems/TiedCoord.pm

Criterion	Covered	Total	%
statement	9	26	34.6
branch	0	4	0.0
condition	0	2	0.0
subroutine	3	6	50.0
pod			n/a
total	12	38	31.5

# Copyright (c) 2007 by Christoph Lamprecht. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
# [e-mail]

package Tk::GraphItems::TiedCoord;
use strict;
use warnings;
use Scalar::Util (qw/weaken/);
our $VERSION = '0.11';

sub TIESCALAR{
    my($class,$t_b,$c_in)=@_;
    my $self =  bless{TkGNode      =>$t_b,
                      coord_index  =>$c_in},$class;
    weaken ($self->{TkGNode});
    $self;
}

sub FETCH{
    my $self = shift;
    my $i = $self->{coord_index};
    if ($self->{TkGNode}) {
        return ($self->{TkGNode}->get_coords)[$i];
    }
    return $self->{cached}[$i]||0;
}

sub STORE{
    my ($self,$value) = @_;
    my $i  = $self->{coord_index};
    my $tb = $self->{TkGNode};
    $self->{cached}[$i]= $value;
    return unless $tb;
    my @coords = $tb->get_coords;
    $coords[$i] = $value;
    $tb->set_coords(@coords);
}
1;


__END__