Symlink.pm 277 B

1234567891011121314
  1. package NIC::Bridge::Symlink;
  2. use strict;
  3. use warnings;
  4. use parent qw(NIC::Bridge::NICType);
  5. use NIC::Bridge::Tie::WrappedMethod;
  6. sub target :lvalue {
  7. my $self = shift;
  8. tie my $tied, 'NIC::Bridge::Tie::WrappedMethod', $self->{CONTEXT}, $self->{FOR}, "target";
  9. $tied;
  10. }
  11. 1;