… | |
… | |
1280 | =cut |
1280 | =cut |
1281 | |
1281 | |
1282 | sub resource($$;$) { |
1282 | sub resource($$;$) { |
1283 | my ($self, $name) = (shift, shift); |
1283 | my ($self, $name) = (shift, shift); |
1284 | unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); |
1284 | unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); |
1285 | &urxvt::term::_resource |
1285 | goto &urxvt::term::_resource |
1286 | } |
1286 | } |
1287 | |
1287 | |
1288 | =item $value = $term->x_resource ($pattern) |
1288 | =item $value = $term->x_resource ($pattern) |
1289 | |
1289 | |
1290 | Returns the X-Resource for the given pattern, excluding the program or |
1290 | Returns the X-Resource for the given pattern, excluding the program or |