1package Data::Printer::Filter::FORMAT; 2use strict; 3use warnings; 4use Data::Printer::Filter; 5 6filter 'FORMAT' => \&parse; 7 8 9sub parse { 10 my ($format, $ddp) = @_; 11 return $ddp->maybe_colorize('FORMAT', 'format'); 12}; 13 141; 15