File Coverage

blib/lib/Circle/TaggedString.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch	2	4	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	23	29	79.3

#  You may distribute under the terms of the GNU General Public License
#
#  (C) Paul Evans, 2008-2010 -- [e-mail]

package Circle::TaggedString;

use strict;
use warnings;

use base qw( String::Tagged );

sub squash
{
   my $self = shift;

   my @output;
   $self->iter_substr_nooverlap( sub {
      my ( $str, %format ) = @_;
      push @output, %format ? [ $str, %format ] : $str;
   } );

   return $output[0] if @output == 1 and !ref $output[0];
   return \@output;
}

0x55AA;