File Coverage

blib/lib/Circle/TaggedString.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch	0	4	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	0	1	0.0
total	12	29	41.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;