File: Overloaded_object.pm

package info (click to toggle)
libxml-dumper-perl 0.81-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, jessie, jessie-kfreebsd, lenny, squeeze, wheezy
  • size: 196 kB
  • ctags: 32
  • sloc: perl: 535; makefile: 48; xml: 12
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;