Subroutine definieren für ECMD classdef?

[jcsjcs]

Hallo zusammen,

ich bin gerade dabei, eine classdef unter ECMD für meine Relaisbox zu schreiben. Dabei würde ich gerne eine Subroutine verwenden um Code-Duplizierung zu vermeiden:

sub getcmdstring
{
    my ($channels, $channel, $value) = @_;
    ...
    return $str;
}

params channels
set on cmd { "s" . getcmdstring (%channels, %channel, "1")  }
set off cmd { "s" . getcmdstring (%channels, %channel, "0")  }
set on params channel

Das funktioniert so natürlich nicht. Gibt es trotzdem eine Lösung für mein Ansinnen?

Danke im voraus,

JCS.