NEXT/t/stringify.t

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');