| … | … | ||
|---|---|---|---|
| 196 | 196 | ||
| 197 | use POSIX qw(ceil); | 197 | use POSIX qw(ceil); |
| 198 | 198 | ||
| 199 | sub new { | 199 | sub new { |
| 200 | my ($self, %arg) = @_; | 200 | my ($self, %arg) = @_; |
| 201 | |||
| 202 | $self = $self->Glib::Object::new; | 201 | $self = $self->Glib::Object::new; |
| 203 | $self->{$_} = delete $arg{$_} for keys %arg; | 202 | $self->{$_} = delete $arg{$_} for keys %arg; |
| 204 | 203 | ||
| 205 | $self->listen ($self->{conn}); | 204 | $self->listen ($self->{conn}); |
| 206 | 205 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |