view release on metacpan or  search on metacpan

lib/Net/Dropbox.pm  view on Meta::CPAN

	init_arg  => undef
);



sub file_status { #{{{
	my $self = shift;
	my $file = shift;

	my $res = $self->_send_and_fetch(
		"icon_overlay_file_status",
		{ path => $file },
	);

	return $res;
} #}}}





sub dir_status { #{{{
	my $self = shift;
	my $dir  = shift;

	return { ok => 0, status => 'not a dir' } 
		unless( -d $dir );

	my $res = $self->_send_and_fetch(
		"icon_overlay_file_status",
		{ path => $dir },
	);

	if($res->{ok} == 1) {
		my $res2 = $self->_send_and_fetch(
			"get_folder_tag",
			{ path => $dir },
		);

		if($res2->{ok} == 1) {