… | |
… | |
942 | urxvt::warn ($msg); |
942 | urxvt::warn ($msg); |
943 | }; |
943 | }; |
944 | } |
944 | } |
945 | |
945 | |
946 | no warnings 'utf8'; |
946 | no warnings 'utf8'; |
|
|
947 | |
|
|
948 | sub resource { |
|
|
949 | my ($term, $name, $isarg, $flag, $value) = @_; |
|
|
950 | |
|
|
951 | warn "resourece<@_>\n";#d# |
|
|
952 | |
|
|
953 | 0 |
|
|
954 | } |
947 | |
955 | |
948 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
956 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
949 | |
957 | |
950 | sub verbose { |
958 | sub verbose { |
951 | my ($level, $msg) = @_; |
959 | my ($level, $msg) = @_; |
… | |
… | |
1100 | while (my ($name, $cb) = each %hook) { |
1108 | while (my ($name, $cb) = each %hook) { |
1101 | my $htype = $HOOKTYPE{uc $name}; |
1109 | my $htype = $HOOKTYPE{uc $name}; |
1102 | defined $htype |
1110 | defined $htype |
1103 | or Carp::croak "unsupported hook type '$name'"; |
1111 | or Carp::croak "unsupported hook type '$name'"; |
1104 | |
1112 | |
1105 | $self->modify_should_invoke_count ($htype, +1) |
1113 | $self->set_should_invoke ($htype, +1) |
1106 | unless exists $self->{term}{_hook}[$htype]{$pkg}; |
1114 | unless exists $self->{term}{_hook}[$htype]{$pkg}; |
1107 | |
1115 | |
1108 | $self->{term}{_hook}[$htype]{$pkg} = $cb; |
1116 | $self->{term}{_hook}[$htype]{$pkg} = $cb; |
1109 | } |
1117 | } |
1110 | } |
1118 | } |
… | |
… | |
1116 | for my $name (@hook) { |
1124 | for my $name (@hook) { |
1117 | my $htype = $HOOKTYPE{uc $name}; |
1125 | my $htype = $HOOKTYPE{uc $name}; |
1118 | defined $htype |
1126 | defined $htype |
1119 | or Carp::croak "unsupported hook type '$name'"; |
1127 | or Carp::croak "unsupported hook type '$name'"; |
1120 | |
1128 | |
1121 | $self->modify_should_invoke_count ($htype, -1) |
1129 | $self->set_should_invoke ($htype, -1) |
1122 | if delete $self->{term}{_hook}[$htype]{$pkg}; |
1130 | if delete $self->{term}{_hook}[$htype]{$pkg}; |
1123 | } |
1131 | } |
1124 | } |
1132 | } |
1125 | |
1133 | |
1126 | our $AUTOLOAD; |
1134 | our $AUTOLOAD; |