- my ($class, $doc, $mid) = @_;
- bless { doc => $doc, mime => undef, mid => $mid }, $class;
-}
-
-sub get {
- my ($class, $head, $db, $mid) = @_;
- my $doc_id = $head->get_docid;
- my $doc = $db->get_document($doc_id);
- load_expand(wrap($class, $doc, $mid))
+ my ($class, $mid) = @_;
+ bless { mid => $mid }, $class;