File: Overloaded_object.pm

package info (click to toggle)
libxml-dumper-perl 0.81-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 240 kB
  • sloc: perl: 535; xml: 12; makefile: 8
file content (7 lines) | stat: -rw-r--r-- 226 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
 
use overload
	q{ "" }	=> sub { my $self = shift; return $self->value(); };
package Overloaded_object;
sub new { return bless { value => $_ }, 'Overloaded_object'; }

sub value { my $self = shift; return $self->{ value }; }
1;