[p5sagit/Devel-REPL.git] / lib / Devel / REPL / Plugin / DDS.pm

package Devel::REPL::Plugin::DDS;

use Devel::REPL::Plugin;
use Data::Dump::Streamer ();

around 'format_result' => sub {
  my $orig = shift;
  my $self = shift;
  my $to_dump = (@_ > 1) ? [@_] : $_[0];
  my $out;
  if (ref $to_dump) {
    my $dds = Data::Dump::Streamer->new;
    $dds->Freezer(sub { "$_[0]"; });
    $dds->Data($to_dump);
    $out = $dds->Out;
  } else {
    $out = $to_dump;
  }
  $self->$orig($out);
};

1;

__END__

=head1 NAME

Devel::REPL::Plugin::DDS - Format results with Data::Dump::Streamer

=cut
Commit	Line	Data
950232b2	1	package Devel::REPL::Plugin::DDS;
950232b2	2
6a5409bc	3	use Devel::REPL::Plugin;
950232b2	4	use Data::Dump::Streamer ();
950232b2	5
e22aa835	6	around 'format_result' => sub {
950232b2	7	my $orig = shift;
	8	my $self = shift;
	9	my $to_dump = (@_ > 1) ? [@_] : $_[0];
	10	my $out;
	11	if (ref $to_dump) {
	12	my $dds = Data::Dump::Streamer->new;
	13	$dds->Freezer(sub { "$_[0]"; });
	14	$dds->Data($to_dump);
	15	$out = $dds->Out;
	16	} else {
	17	$out = $to_dump;
	18	}
	19	$self->$orig($out);
	20	};
	21
	22	1;
cfd1094b	23
	24	__END__
	25
	26	=head1 NAME
	27
	28	Devel::REPL::Plugin::DDS - Format results with Data::Dump::Streamer
	29
	30	=cut
	31