{"body":"method purge-messages($cmd-obj) {;\n    my %payload = $cmd-obj.payload;\n    my $channel = %payload<channel>;\n\n    my $how-many = $cmd-obj.args;\n    unless $how-many ~~ / ^\\d+$ / { return content => 'You must provide an Int value for this command.'; }\n\n    my @messages = $channel.messages;\n\n    if @messages.elems < $how-many {\n        @messages.push: await $channel.fetch-messages($how-many.Int - @messages.elems);\n    }\n\n    $channel.bulk-delete(@messages);\n    return content => \"Purged $how-many messages.\";\n}","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/F9mHqnTh","modified":1562019401,"id":"F9mHqnTh","size":512,"lines":16,"own_paste":false,"theme":"","date":1562019401}