01 package MyDropbox;
02 use strict;
03 use base 'Net::Dropbox::API';
04 use YAML qw(LoadFile);
05 
06 my $dev_key    = "iyaiu823ajksgwf";
07 my $dev_secret = "zlkj32lkj2kl3dp";
08 my($home)      = glob '~';
09 my $CFG_FILE   = "$home/.dropbox.yml";
10 
11 ###########################################
12 sub new {
13 ###########################################
14   my($class) = @_;
15 
16   my $box = Net::Dropbox::API->new({
17     key    => $dev_key,
18     secret => $dev_secret,
19   });
20 
21   my $cfg = LoadFile( $CFG_FILE );
22   $box->access_token( 
23       $cfg->{access_token} );
24   $box->access_secret( 
25       $cfg->{access_secret} );
26   
27   bless $box, $class;
28 }
29 
30 1;