/usr/local/CPAN/Pangloss/Pangloss/Segment/ShowStore.pm

• package Pangloss::Segment::ShowStore
  • dispatch
• EOF

package Pangloss::Segment::ShowStore;

use base qw( Pipeline::Segment );

sub dispatch {
    my $self = shift;
    # this will only work for simple stores
    $self->emit( "store contains:" . join( "\n\t", keys %{ $self->store->{storehash} } ) );
}

1;