File Coverage

blib/lib/Mail/Transport/Dbx.pm

Criterion	Covered	Total	%
statement	27	49	55.1
branch	2	8	25.0
condition			n/a
subroutine	8	10	80.0
pod			n/a
total	37	67	55.2

package Mail::Transport::Dbx;

use 5.00503;
use strict;
use Carp;

require Exporter;
require DynaLoader;
use AutoLoader;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
@ISA = qw(Exporter
	DynaLoader);

%EXPORT_TAGS = ( 'all' => [ qw(
	DBX_BADFILE
	DBX_DATA_READ
	DBX_EMAIL_FLAG_ISSEEN
	DBX_FLAG_BODY
	DBX_INDEXCOUNT
	DBX_INDEX_OVERREAD
	DBX_INDEX_READ
	DBX_INDEX_UNDERREAD
	DBX_ITEMCOUNT
	DBX_NEWS_ITEM
	DBX_NOERROR
	DBX_TYPE_EMAIL
	DBX_TYPE_FOLDER
	DBX_TYPE_NEWS
	DBX_TYPE_VOID
) ] );

@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

@EXPORT = qw(
	DBX_BADFILE
	DBX_DATA_READ
	DBX_EMAIL_FLAG_ISSEEN
	DBX_FLAG_BODY
	DBX_INDEXCOUNT
	DBX_INDEX_OVERREAD
	DBX_INDEX_READ
	DBX_INDEX_UNDERREAD
	DBX_ITEMCOUNT
	DBX_NEWS_ITEM
	DBX_NOERROR
	DBX_TYPE_EMAIL
	DBX_TYPE_FOLDER
	DBX_TYPE_NEWS
	DBX_TYPE_VOID
);

$VERSION = '0.07';

my %FOLDERS;
sub Mail::Transport::Dbx::Folder::folder_path {
    my $self = shift;
    my $id = $self->id;
    my $dbx = $self->_dbx;

    my $folders = $FOLDERS{ $dbx };
    # get folders data (just first time this function is called)
    if (! $folders) {
	for my $sub ($dbx->subfolders) {
		my $i = $sub->id;
		$folders->{$i}{'name'}      = $sub->name;
		$folders->{$i}{'parent_id'} = $sub->parent_id;
	}
	$FOLDERS{ $dbx } = $folders;
    }
    # get path
    my @path;
    my $i = $id;
    unshift @path, $folders->{$id}{'name'};
    while ($i != $folders->{$i}{'parent_id'}) {
	    $i = $folders->{$i}{'parent_id'};
	    unshift @path, $folders->{$i}{'name'};
    }
    return @path;
}

sub Mail::Transport::Dbx::Folder::DESTROY {
    my $self = shift;
    my $dbx = $self->_dbx;
    delete $FOLDERS{ $dbx } if defined $dbx;
    $self->_DESTROY;
}

sub AUTOLOAD {
    # This AUTOLOAD is used to 'autoload' constants from the constant()
    # XS function.

    my $constname;
    ($constname = $AUTOLOAD) =~ s/.*:://;
    croak "&Mail::Transport::Dbx::constant not defined"
        if $constname eq 'constant';
    my ($error, $val) = constant($constname);
    if ($error) { croak $error; }
    {
	no strict 'refs';
	# Fixed between 5.005_53 and 5.005_61
#XXX	if ($] >= 5.00561) {
#XXX	    *$AUTOLOAD = sub () { $val };
#XXX	}
#XXX	else {
	    *$AUTOLOAD = sub { $val };
#XXX	}
    }
    goto &$AUTOLOAD;
}

bootstrap Mail::Transport::Dbx $VERSION;

# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__