Lines Matching refs:self
92 my $self = {
103 bless($self, $class);
108 my $property_table = $self->GetTable("Property");
110 $self->{'version'} = $property_table->GetValue("Property", "DEFINEDVERSION", "Value")
111 unless defined $self->{'version'};
112 $self->{'product_name'} = $property_table->GetValue("Property", "DEFINEDPRODUCT", "Value")
113 unless defined $self->{'product_name'};
117 $self->{'language'} = $language
118 unless defined $self->{'language'};
121 return $self;
129 my ($self) = @_;
131 return $self->{'is_valid'};
145 my $self = shift;
148 foreach my $table (values %{$self->{'tables'}})
159 $self->PutTable($table);
183 my ($self, $table_name) = @_;
185 my $table = $self->{'tables'}->{$table_name};
188 my $table_filename = File::Spec->catfile($self->{'tmpdir'}, $table_name .".idt");
190 || ! EnsureAYoungerThanB($table_filename, $self->{'fullname'}))
196 "-d", installer::patch::Tools::ToEscapedWindowsPath($self->{'filename'}),
197 "-f", installer::patch::Tools::ToEscapedWindowsPath($self->{'tmpdir'}),
204 $self->{'tables'}->{$table_name} = $table;
221 my ($self, $table) = @_;
244 "-d", installer::patch::Tools::ToEscapedWindowsPath($self->{'filename'}),
245 "-f", installer::patch::Tools::ToEscapedWindowsPath($self->{'tmpdir'}),
392 my ($self) = @_;
394 if (defined $self->{'DirectoryMap'})
396 return $self->{'DirectoryMap'};
400 my $directory_table = $self->GetTable("Directory");
446 $self->{'DirectoryMap'} = $directory_map;
447 return $self->{'DirectoryMap'};
466 my ($self) = @_;
468 if (defined $self->{'FileMap'})
470 return $self->{'FileMap'};
473 my $file_table = $self->GetTable("File");
474 my $component_table = $self->GetTable("Component");
475 my $dir_map = $self->GetDirectoryMap();
504 $self->{'FileMap'} = $file_map;