examples/copy.pl

   1 #!/usr/bin/perl
   2
   3 use Gruta;
   4 use Gruta::Source::DBI;
   5 use Gruta::Source::FS;
   6
   7 my $g = Gruta->new (
   8         sources => [
   9                 Gruta::Source::DBI->new( string => 'dbi:SQLite:g.db' )
  10                 ]
  11 );
  12
  13 my $dst = Gruta::Source::FS->new( path => '/tmp/gruta_fs' );
  14
  15 $dst->create();
  16 $g->transfer_to_source( $dst );