File.pm 222 B

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