package IRC::Indexer::Output::YAML;

use strict;
use warnings;
use YAML::XS ();

require IRC::Indexer::Output;
our @ISA = qw/IRC::Indexer::Output/;

sub dump {
  my ($self, $path) = @_;
  my $input = $self->{Input};
  $self->{Output} = YAML::XS::Dump($input);
  $self->SUPER::dump();
}

sub write {
  my ($self, $path) = @_;
  my $input = $self->{Input};
  $self->{Output} = YAML::XS::Dump($input);
  $self->SUPER::write($path);
}

1;
__END__

=pod

=head1 NAME

IRC::Indexer::Output::YAML - YAML::XS output subclass

=head1 DESCRIPTION

L<IRC::Indexer::Output> subclass serializing via L<YAML::XS>.

See L<IRC::Indexer::Output> for usage details.

=head1 AUTHOR

Jon Portnoy <avenj@cobaltirc.org>

=cut