DalesDeadBug/theos/bin/lib/NIC/Bridge/Symlink.pm

package NIC::Bridge::Symlink;
use strict;
use warnings;
use parent qw(NIC::Bridge::NICType);
use NIC::Bridge::Tie::WrappedMethod;

sub target :lvalue {
	my $self = shift;
	tie my $tied, 'NIC::Bridge::Tie::WrappedMethod', $self->{CONTEXT}, $self->{FOR}, "target";
	$tied;
}

1;