File: stringify.t

package info (click to toggle)
perl 5.42.0-2
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 128,392 kB
  • sloc: perl: 534,963; ansic: 240,563; sh: 72,042; pascal: 6,934; xml: 2,428; yacc: 1,360; makefile: 1,197; cpp: 208; lisp: 1
file content (28 lines) | stat: -rw-r--r-- 408 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
use warnings;
use strict;
use Test::More tests => 2;

BEGIN { use_ok('NEXT') };


package Foo;

use overload '""' => 'stringify';

use constant BAR => (1..5);

sub new { bless {}, shift }

sub stringify {
    my $self = shift;
    my %result = $self->EVERY::LAST::BAR;
    join '-' => @{ $result{'Foo::BAR'} };
}



package main;

my $foo = Foo->new;
is("$foo", '1-2-3-4-5', 'overloading stringification');