view release on metacpan or  search on metacpan

PropertySet.pm  view on Meta::CPAN

               }
            }
         }
         $o+=get_word($bufR, $o);
         $H->{OFFSET}->[$n+1]=$o;
      }
   }
   $S->{HEADER} = $H;
1}

##
## ---------------------------- Tie Support -------------------------------
##

sub TIEHASH {
#
# $PropertySet||0 = TIEHASH $classname, $Startup, $Var, $Doc, $pps [,$filter]
#
   goto &load;
}

sub CLEAR{0} 
sub DELETE{0} 
sub DESTROY{0}
sub STORE{0}

sub FETCH {
#
# FETCH this, key
#
   my $S = shift;
   if (my $filter = $S->_filter()) {
      $S -> property (@_) -> $filter();
   } else {
      $S -> property (@_);
   }
}

sub EXISTS {
   goto &exists;
}

sub FIRSTKEY {
   my $S = shift;
   keys %{$S->_prop};
   $S->NEXTKEY();
}

sub NEXTKEY {
#
# NEXTKEY this, lastkey
#
   scalar each %{$_[0]->_prop};
}

#
# -------------------------------- Defines --------------------------------
#

# global_definitions
$[=0;

# \05
%PPSET = (
   "\05SummaryInformation" => {
      TYPE => 1,
      NAME => "Summary Info",
      DICT => {
          2 => "Title",
          3 => "Subject",
          4 => "Authress",
          5 => "Keywords",
          6 => "Comments",
          7 => "Template",
          8 => "LastAuthress",
          9 => "Revision",
         10 => "EditTime",
         11 => "LastPrinted",
         12 => "Created",
         13 => "LastSaved",
         14 => "Pages",
         15 => "Words",
         16 => "Chars",
         17 => "Thumbnail",
         18 => "Application",
         19 => "Security"
      },
      GUID => [
          0xf29f85e0, 0x4ff9, 0x1068,
          "\0xab\0x91\0x08\0x00\0x2b\0x27\0xb3\0xd9"
      ]
   },
   "\05DocumentSummaryInformation" => {
      TYPE => 1,
      NAME => "Document Summary Info",
      DICT => {
          2 => "Category",
          3 => "PresentationTarget",
          4 => "Bytes",
          5 => "Lines",
          6 => "Paragraphs",
          7 => "Slides",
          8 => "Notes",
          9 => "HiddenSlides",
         10 => "MMClips",
         11 => "ScaleCrop",
         12 => "HeadingPairs",
         13 => "TitlesOfParts",
         14 => "Manager",
         15 => "Company",
         16 => "LinksUpToDate",
      },
      GUID => [
          0xd5cdd502, 0x2e9c, 0x101b, 
          "\0x93\0x97\0x08\0x00\0x2b\0x2c\0xf9\0xae"
      ],
      USERGUID => [
          0xd5cdd505, 0x2e9c, 0x101b,
          "\0x93\0x97\0x08\0x00\0x2b\0x2c\0xf9\0xae"
      ]
   },