package Text::CSV::Auto::Plugin::ExportToCSV;
BEGIN {
  $Text::CSV::Auto::Plugin::ExportToCSV::VERSION = '0.06';
}
use Moose::Role;

=head1 NAME

Text::CSV::Auto::Plugin::ExportToCSV - Provides a direct interface from
Text::CSV::Auto to export to a CSV.

=head1 SYNOPSIS

    use Text::CSV::Auto;
    my $auto = Text::CSV::Auto->new('path/to/file.csv');
    $auto->export_to_csv(
        file => 'path/to/new_file.csv',
    );

=head1 DESCRIPTION

This L<Text::CSV::Auto> plugin provides a simple interface to
L<Text::CSV::Auto::ExportToCSV>.

=head1 METHODS

=head2 export_to_csv

All arguments are passed directly on to L<Text::CSV::Auto::ExportToCSV>.

=cut

use Text::CSV::Auto::ExportTo::CSV;

sub export_to_csv {
    my $self = shift;

    my $options;
    if (@_ == 1) {
        $options = shift;
    }
    else {
        $options = { @_ };
    }

    return Text::CSV::Auto::ExportTo::CSV->new(
        auto => $self,
        %$options,
    )->export();
}

1;
__END__

=head1 AUTHOR

Aran Clary Deltac <bluefeet@gmail.com>

=head1 LICENSE

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.